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1.0 GENERAL PROGRAM INFORMATION. 


1.3 PROGRAM PURPOSE (ABSTRACT). 
THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
Beraucts “fo. Au, OPrions, Extent  PROGRRREMELE “BAUD RATE, 


ENABLE AND I reerinc ote T 'Wiesloes aut crIveL 
EONTENTS ae aa Re The Te 
erect &8 9 ue IP LEVEL) 
THIS $65 ON If WCB) Ident TeALLY CONF IGURED 
DLVi1 SCERTAT L INE I AULT ADORESSES ARE: 
175610 -FIRST SERIAL LINE ADDRESS OF 16 CONSECUTIVE 
SERIAL LINE DEVICES. 
300 - VECTOR FOR FIRST OF 16 DEVICES. 
THIS PROGRAN S fe ANY "Ee hu “Onden 4K OF 
MEMORY ND A V1I (US1- 1 ) BON MODULE” IT CAN R XXDP 
APT MONITORS ON PROCESSORS Seo pROWERE 
SWITCH REGISTER oeeeR en FAIL IS SUPPORTED. 
1.2 SYSTEM REQUIREMENTS. 
1. HARDWARE REQUIREMENTS: 
ANY PDP-11 FAMILY PROCESSOR 


4K MEMORY - MINIMUM 
H315 - CABLE TURN AROUND PLUG (OR EQUIVALENT) 


SOFTWARE REQUIREMENTS: 
THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 
FOLLOWING WAYS: oe 
RIT APT MONITOR 
7 ACT MONITOR 
WITH XXDP MONITOR (CHAINABLE) 
1.3 RELATED DOCUMENTS AND STANDARDS. 


DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 17S-003-009-0e 
APT -11-D22MA 

ACT AUTOCAT-11-QZAUB 
SYSMAC MO-11-D2QAC 


De eee en ee ee ee ee ee 
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1.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 
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1.5 


2.0 


2.1 


2.2 


2.3 


Hees PeacesSOR, "AEAGRY, AND BOS ARe™ mssUAneD 10"Be FULLY 


ASSUMPTIONS. 


AE ANGLE Hoc "Me ERIM Bs, TIA 


OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 


7 PROCEDURE FOR POP-11 ABSOLUTE BINARY FORMATTED 


THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED oY SETTING 
SWITCH 8 IN ye ee GIS TER AND THE TEST NUMBER (IN OCTAL) 
IN THE LOWER ALL TESTS ‘aie TO THE SELECTED 
ONE ARE EXECUTED IN QUICK VERIFY MODE. ) 


SPECIAL ENVIRONMENTS. 


THIS DIAGNOSTIC FO FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
EDURES Pantone AND SYSMAC’ PACKAGE . 


OPERATIONAL SWITCH SETTINGS 


Te GEN A SOF THERE ON A CPU WITHOUT A SWITCH 
REcISt THEN A WARE SWITCH re ae er ants 8 


HARARE eur WH REGISTER. IF THE a SWITCH 
REGISTER DOES NOT EXTo! OR_IF ONE DOES AND IT CONTAINS 
ALL ONES (177777) THEN THE SOFTWARE SWITCH REGISTER 
(LOC. 176). 15 USED. 


CONTROL: 
THIS PROGRAM ALSO SUPPOR IC LOADING OF THE SOFTWARE 
SWITCH REGIST * “PRON THe TTY. THIS CAN BE 


ACCOMPL ISHED 
G < 


1) TYPE CONTROL 


LL ALLOW THE TTY TO ENTER 
DATA INTO (Sc T 


SELECTED POINTS WITHIN THE 


SEG 0005 
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PROGRAM. 


2) THE MACHINE WILL THEN TYPE:’ SWR=XXXXXX_ NEW=’ (XXXXXX IS 
THE OCTAL CONTENTS OF THE SOFTWARE *suiTCH REGISTER. ) 


3) AFTER THE ’NEW=’ HAS BEEN TYPED THEN THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE TTY: 


Fg EE 1 eee 
biciis = TYPED TH THE E Past Lote IF A <CR> 


Beatie CONTENTS WILL NOT BE SOFTWARE SWITCH 


OBERT ALL DELETED CHARACTERS BETKEEN BACK SLASHES. 


C) IF A CONTROL U_<ftU) IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP e. 


Bb) IF 3 INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED roove THEN A QUESTION MARK (7) WILL BE TYPED 
AND WILL WAIT FOR THE OPERATOR TO ENTER THE “SWREG” 
DATA AGAIN USING VALID CHARACTERS. 


DYNAMIC SWITCH REGISTER 


BIT 15 - HALT ON ERROR 
14 - LOOP ST 
13 - INHIBIT ERROR TYPEOUTS 
12 - (UNUSED) 
11 - INHIBIT ITERATIONS 
10 - BELL ON ERROR 
9 - LOOP ON ERROR 
8 - LOOP ON TEST IN SWR<7:0> 
7:0 - TEST NUMBER TO LOOP ON (USED WITH BIT 8) 
PROGRAM OPTIONS. 
THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE DLV11-E’S. 
REQUIRES THE ADDRESS OF THE FIRST RCSR (STORED AT ’SBASE’) 
ITS INTERRUPT VECTOR (STORED AT 'SVECT1’): AND WILL BE ABLE 
TO S DLVI1-E STARTING AT THE SPECIFIED BASE ADDRESS 
UP TO 16 CONSECUTIVE DEVICES 
EXAMPLES : 175610 
S$VECTI: 


THE PROGRAM WILL BE ABLE TO TEST ANY DLVII-E WITHIN THE 
ADDRESS RANGE 175610 --> 176000 


SBASE AND SVECT1 DEFAULT TO 175610 AND 300 RESPECTIVELY. 
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PARERTESTS A = Sane ad ‘wat NUMBERS AS FOLLOWS: (NUMBERS IN 


TORED AT 'SBASE’ 
SE VECTOR STORED AT 'SVECTI’ 
UNIT#1 -- + (10) 
, CTOR + (10) 
uP TO. 
UNITS1S -- BASE S + (170) 
Bree UreT + (170) 
LOCATION °$ “sogvn IS $ USED AS AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE WILL BE TESTED. 
BIT 1S - BIT1 BITO 
UNIT! ‘UNIT ! UNIT! 
iis i . tal 


A BIT MAP CAN BE ENTERED AT 'SDEVM’ PRIOR TO STARTING THE 
PROGRAM. 


EXAMPLE : 
SBASE: 175610 
S$VECTOR: 300 
SDEVM: 

THE PROGRAM WILL TEST- 
UNIT#O 175610 300 
UNIT#1 175620 310 
UNIT#3 175640 330 


LOCATION ae CONTAINS ALL THE USER SELECTAGLE OPTIONS. THE 
Hive ah ton. HIS WORD MUST CONFORM TO THE ACTUAL BOARD 


ee 
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THE DEFAULT VALUE OF SUSWR IS AS FOLLOWS: 


BIT POSITION DEFINITION DEFAULT VALUE 
0-3 #OF DATA BITS 10(8) = 8 
4 PARITY Fo 0 = NO 
S EVEN PARITY 0 = 000 
6 1 = YES 
7 go TE Q = NO 
8-11 BAUD T 0S(8) = 110 BAUD 
( F iN NOTE) 
le TION ENABLED 1 = YES 
13 CABLE INATED (H3FS) 1 = YES 
14 FR FD IN = YES 
1S (NOT DEFINED) 
NOTE 
orto IS 
atin es et 
VALUE mate rey 
ate fue RESET IROICATE in fue TABLE 
T THE END OF THE PBR TEST. ‘ 
2.5 EXECUTION TIMES. 
EXECUTION TIMES ARE FOR AN LSI-11 PROCESSOR WITH ALL OPTIONS 
ENABLED ON THE DLV11-E (EXECPT FOR PROGRAMMABLE BAUD RATE), AT 
110 BAUD. 
FIRST PASS- 2 MINUTE 
ADDITIONAL PASSES MINUTES 
ADDITIONAL DEVICES 2 MINUTES 
THE TEST TIME IS BAUD RATE DEPENDANT; HIGHER BAUD GIVES 
TER PASS TIMES. 


3.0 ERROR INFORMATION. 


3.1 ERROR REPORTING PROVEDURE. 


SINCE THIS DiAGHOSTIE WAS DESIGNED TO FIT IN 4- 
ERROR TYPEOUT IS VERY BRIEF. THE FORMAT OF T 
IS AS FOLLOWS: 


-K OF MEMORY THE 
HE ERROR TYPEOUT 


ee ee ee -— = oe = - ~---- 
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3.2 


4.0 


4.1 


TEST aeeeee ERRORS eee, PCaeeeee ADDRESS=+eeeee VECTOR=eeeee 


Uricn {8 OECIRRL. "The ADORESS ano VecTOn RerER YO Tre FAILING 


THER INFORMATION THE LI 


Bits 13. iB, AB, a. a rahe nind CONTROL "THe 


BIT 1S - PROGRAM TO HALT IN Free 
ROTI. INUEING THE PROGRAM CAUSES TT 


BIT 13 - DISABLES THE PRINTING OF THE ERROR MESSAGE. 
BIT 10 - CAUSES THE BELL TO RING. 


BIT 9 - CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 
ERROR HALTS. 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS_ EXECUTED ONLY IF BIT 1S OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 


PERFORMANCE AND PROGRESS REPORTS. 


PERFORMANCE REPORTS. 
AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL TYPED: 
CSR: eeeee » VE OR: eeeee, ERRORS: eeeee 
WHERE . CSR: seeeee? IS THE DEVICE CSR UNDER TEST 


CTOR:++’ IS THE ASSOCIATED VECTOR 
AND ’ERRORS:++’ IS THE ne NUMBER OF ERRORS ON THIS DEVICE 
ON THIS PASS. 


NOTE 
THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS 


AFTER ALL DEVICES HAVE BEEN EXERCISED AN END PASS STATEMENT IS 
" “ENDPASS Beers,” 
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5.0 DEVICE INFORMATION TABLES. 


soa Be ME Le oe ee Pe ee eS ee a 

OCA ap ers pe oe a me FE ee ae 
RCSAY OR TA RING! St ieee FRCVR:REC } 'RCVR! RCVR! DATA! ise +REQ 

INT ! *DET SACT SREC ; ‘DONE? TE %IE ! XMIT igen 

caueesneuudeacesssenisunedanichasanieaesiuerebetanteseisassbacstesreicresteasti 


ROUFIERROIR iitei «6§l CUCU a Soe : 


Figs tf-tn iii {>t ht + hel hat +t ll 41 
TCSR! SXMIT!XMIT! *MAIN! 


i RATE Cc jeer irgoy ? ; = Ht 
ile ee iil ikl eee ini iil iis =7"°-4<-<--7-1 2 2 ll 
: : : : : : H TRANSMITTER DATA BUFFER 


: i i i i ; 5 4 
PUTTS TTOTITITITITTTTTITITTTTTITTT TTT TTT TTT TTT itt i iii titi ttt titi itt t tt ttt 


BRIRREBRESSOURR LOOT OS 
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417 6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


yoy TEST THAT THE SS AS PLACED IN THE 
yas as is Verte TES TH EcoRres ; AND THE OLVLI-E 
425 RESPONDS TO THAT ROORESS 

42g THE FOLLOWING 8 TESTS TEST ALL "READ WRITE’ BITS 


432 TEST e BREAK - TCSRO SET, CLEAR, RESET 


} 
| 
| 
| 
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SE@ 0011 
TEST 5 DTR - RCSR1 SET, CLEAR 


NOTE 


FOR AN ae ae os TE | Bir is 
EIN POWER INIT 


TEST B REQSEND - RCSR2 SET, CLEAR, RESET 


THIS TEST ASSUMES THAT JUMPER FR IS IN. 


TEST 7 SECXMIT - RCSR3 SET, CLEAR, RESET 


THE FOLLOWING 4 TESTS VERIFY THAT RESET (INIT) INITIALIZES 
READ ONLY BITS. 


TEST 12 RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


THE FOLLOWING 4 TESTS vERtrY THAT THE EIA SIGNALS CAN BE 
TRANSMITTED AND RECEIVED THROUGH THE CABLE. 


499 


SeUkn cones 


WUNUNUT UU UT UT 
fee ee be ee ee 
WOnNMUWN£WU-O 


itil ths iat 


FRESH SOBRE 
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: TEST 16 CARDET SETS AND CLEARS AS DTR SETS AND CLEARS 
498 


DATAINT IS CLEARED AFTER READING RCSR 


NOTE 
pms TIED TO BOTH CARDET AND CLRSEND BY THE 


TEST 23 DATAINT SETS WHEN RING SETS AND THAT DATAINT 
DOES NOT SET WHEN RING CLEARS 


TEST 24 DATAINT SETS WHEN SECREC CHANGES STATE 


m WITH A gos AND THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 26 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 
RESULTS _IN_RCVRDONE SETTING noe a 


RE LE AMOUNT OF TIME AND RESET 
CLEARS BIT. 


TEST 27 RCVRDONE IS CLEARED BY READING RBUF 


SEQ 0012 
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TEST 30 RCVRACT - RCSR 11 - SETS WHEN A START BIT IS 


BESS IVED AND CLEARS WHEN RCVRDONE - RCSR 7 - 


TEST 31 OVERRUN BIT - RBUF 14 


AVAILABLE A COMPARISON WILL BE MADE TO SEE IF 
NEW TIME IS LESS THAN PREVIOUS. 


TEST 33 TRANSMITTER INTERRUPT LOGIC TEST 
aener Vg THIS IS 4 
ty ITTER INTERRUP ; Poste WORK 
NOT WITH INTERRUPT ENABLE CLEAR 


TEST 34 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 


OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC, BOTH 
DATASET AND CHARACTER MODES. 


TEST 35 TEST ACTUAL DATA TRANSFERED NON-INTERRUPT 
” MAINTENANCE BIT SET 


TEST 36 TEST DATA THROUGH CABLE 


WITH BREAK SET AND COMPARE RECEIVED WITH 0. 


TEST 41 NOT A TEST - SEND BACK TO LOOP 


SE@ 0013 





Ot worn & ee ee ee A rr) errr ee ee Oe o> So ee om: ee a 
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THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 


INPUT: NOTHING IS PASSED TO THIS ROUT INE BUT GLOBAL 
INFORMATION IS ASSUMED TO EXIST: 
SUSWR-- THE WORD FOR SOFTWARE PARAMETERS 
DATA-- A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 
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601 NOTE 
em oP ft, MERE SS NCA Si 
605 TWEEN THE CALLER And TH CALLED. | 
607 
608 ROUTINE: TIMER 
vs RSS NR MS a I Ti cae en | 
611 THIS ROUTINE IS S USED ai TEST THE STATUS OF | 
612 ANY BIT IN ANY REGIS 
613 INPUTS 
614 HOWL ONG OF TIME TO 
615 SPEND IN THs $ ROU The 
B16 WHICHBIT BIT(S) SET THAT 
618 REG A a TO THE REGISTER TO BE | 
| SETCLR fe DES DESIRED RESULTS -- EITHER SET 
OR CLEAR 
| OUTPUT: 
| THE 'C’ BIT IS SET TO INDICATE AN ERROR BUT IT 
| IS TESTED BY THE IF.ERROR STATEMENT 
| | 
| ROUTINE: DATLNG | 
| 
' 
! 


FRCPC R RENE Res 


QUTPUT---- 
MASK=-- A MASK OF BINARY ZEROS RIGHT-JUSTIFIED | 
633 THE NUMBER OF WHICH IS DEFINED IN SUSWR WORD. 
641 
bie ROUTINE: WAIT 
See ee ee 1 
644 THIS ROUTINE IS. USED TO DELAY EXECUTION OF THE 
64S MAIN PROGRAM A SPECIFIED AMOUNT OF TIME. 
646 THIS IS ROMOMPL ISHED BY INCREMENTING A 
647 REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
bug TO APPROXIMATE 1 MICRO SEC. 
650 
651 
G3 SERVICE ROUTINE: INTSRV 
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"INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 

TO LOOK FOR. 

ROUTINE: CYCLE 

THIS ROUTINE CAUSES ADRS TO POINT TO THE 
SS OF DLVI1-— UNDER TEST, ADRS +2 TO 
POINT TO THE VECTOR OF THE Vil UNDER TEST. 
T KEEPS RACK OF THE CURRENT DEVICE AND BIT 
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“TITLE + sh saan 
Piaget 
#PROGRAM BY ODES CHOATE 


te 
:# 
i SeHS PP OCRAY Bee fi BopheecSS Gannig igpy. nee SYSMAC 


‘SeTTL OPERATIONAL SWITCH SETTINGS 


;# 

i SWITCH USE 

# 15 HALT ON ERROR 

te 14 LOOP ON TEST 

i tT TAN ETT ORR OATIONE 
:% 10 in bn bere 

te 9 LOOE ON ERROR 

i F) LOOP ON TEST IN SWR<7:0> 


.SBTTL BASIC DEFINITIONS 


INITIAL ADORESS OF THE STACK POINTER ### 1100 ### 
“EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
"EQUIV IOT’SCOPE :!BASIC DEFINITION OF SCOPE CALL 


seas | tones DEFINITIONS 


T= $s C008 FOR HORIZONTAL TAB 

LF= {2 FOR 

CR= 1 F IAGE RETURN 

CRLF= 200 + FOR CARRIAGE RE TURN-L INE FEED 
= 177776 gt a STATUS WORD 


hela eee 7 REQUEST REGISTER 
P pe ite ied hc) 


jRGENERAL PURPOSE REGISTER DEFINITIONS 


=f gee atte 


R3= %3 ;;GENERAL REGIST 

3 “4 33 RAL REGISTER 
RS= “5 3 RAL Reet TER 
R6= % 3 RAL REGISTE 
R7= “7 ;;GENERAL REGIS 
SP= %b ;: STACK POINTER 
PC= “7 ;; PROGRAM COUNT 


-*PRIORITY LEVEL DEFINITIONS 
PRo= sO : PRIORITY LEVEL O 


SEQ 0016 


SEG 0017 
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BASIC DEFINITIONS 


AN HIB.aH 


Ha 


a 


“EQUIV BITOO,BITO 
pmerene “CPU” TRAP VECTOR ADDRESSES 


ti RESERVED AND SL ILL Bat RS TRUCTIONS 


;"T" BIT 
tt TRACE TRAP 
; ;BREAKPOINT TRAP 
;; INPUT/ TRAP (IOT) *#SCOPE# 


D 
fond 
- 


POWER 
> EMULATOR TRAP (EMT) ##ERROR## 
33 -TRAP® TRAP 


:TTY KEYBOARD VECTOR 
;;TTY PRINTER VECTOR 
: PROGRAM 


ge INTERRUPT REQUEST VECTOR 

ILLMEM= 4 
ADRS= Rl 
BAD= R3 
REGISTER=R1 
BIT= Re 
FUNCT= R3 
LEAD= Re 
FOLLOW= 

= 175610 
ithe ie wanes DEFINITIONS APPLY TO THE Gi OBAL SUBS 
CLR= o 


5 RERRELAR ARERR EERE LEER EERE R ERLE RRR RE EE ELE E ELE REE EEE 


RCSR REGISTER BIT NAMES 
eee eee eS seaxneneneneanenecenenesess 
DATAINT= BITIS ; DATASET INTERRUPT 
BINGE BIT14 : RINGING SIGNAL INDICATOR 
CLRSEND= BIT13 : CLEAR TO SEND FROM DATASET 
CARDE T= BITl2 : CARRIER 
RCVRACT= BIT11 : RECEIVER ACTIVE INDICATOR 
SECREC= BIT10 : SECONDARY RECEIVE 
; UNUSED BIT09 
: UNUSED BIT08 
RCVRDONE = BIT07 ; RECEIVER DONE 
RCVRIE= BITO6 : RECEIVER INTERRUPT ENABLE 
DATAIE= B1i0s : DATASET INTERRUPT ENABLE 
SECKNIT= BIT03 ; SECONDARY TRANSMIT DATA 
QSEND= 1TGe2 : REQUEST TO SEND 
DTR= BITC1 : DATA TERMINAL READY 
; UNUSED BITOO 


SEG 0018 
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Se 


100005 
040000 


020000 
010000 
004000 


8 
8 


1 


000001 


= 


MACY11 27(1006) 
15:29 


es ee te - 


etititritriiititiiit 
RROR= 


5; RERELEREEEEEE RE ERER EER IT 
[HEHEHE HHH HEHE HHHHEHEHIHEH HEHEHE THEE EHH EE 


GOe 


16-MAY-77 10:36 PAGE 21 
BASIC DEFINITIONS 


ts | 
fuw cul 


AAA AAA tt tt tik 


S=RS2RRVES5-— 


SEG 0019 


5 EEE EE EEE 2 0 0 4 4 2 EE a ab a a 
See ee i bb tabbeb-b-h-4-4-4-4-lalalaletatalaiel 
; INDICATOR 


: RRUN 
; FRAMING ERROR 
: PARITY ERROR 


; RECEIVED DATA BITS 


KERLEREAE LAL ERAA ALAA LES ERE REL REEL ELLE EEE 


TCSR REGISTER B 

PBAUD3= BITIS 
PBAUD2= BIT14 
PBAUDI= BIT13 
PBAUDO= BITl2 
PBAUDSET BIT1I 
; UNUSED BIT10 
: UNUSED BITO9 
: UNUSED BITOS 
srt Y= BITO7 
XMITIE= BITOb 
; UNUSED BITOS 
: UNUSED BITO4 
: UNUSED BITO3 
“ge BTTOL 
BREAK= BITOO 


5 SSSESESE SEES ESSERE EEE 


TER BIT 


DOWWWOOOWOWw 
4 4 4 4 0 ee 
AA HAH HHH 
ON000R eee ee 
OnNDOOr-mwwcul 


. % 
\ PROGRAMMABLE BAUD 
4 RATE BITS 


/ 
ENABLE SETTING OF 
PROGRAMMABLE BAUDE RATE 


; TRANSMITTER READY 
TRANSMITTER INTERRUPT ENABLE 


; MAINTENANCE SET BIT 
; SEND BREAK (CONTINUOUS SPACE) 


Tua 


1 HEHEHEHBHE HEHEHE EHEHEH HHH HHEHEGHHHHEHHHHIHIHBHIHEHEHEHE HEHE 


HOe 


MAINDEC-11-DVDVA-A macy) 27(1006) 16-MAY-77 10338 PAGE 22 
:2 ONS 


DVDVAR.P11 O6-MAY-77 1S BASIC DEFINI SEG 0020 


893 TDATAS= 1105 : 
894 TAM= T : "\ TRANSMITTER DATA BUFFER 
89S 1c TDATA3= 1703 . / 

8% 000004 TDATA2= BI 10e : 

897 oo0002 TDATAI= ITO] : i 

898 000001 TDATAG= B1T00 7 

S00 

301 alademaaatodar aha i tat ah ial at ep otal tata alalate 
302 ; FLAG BITS TO BE USE OR CLEARED IN SUSWR. 

904 000017 DATA = ? 

30S 000020 PARITY = 20 

906 000040 EVENODD = 40 

307 000100 COMSPD = 100 

308 000200 PBR = 00 

310 ; BAUDE MUST BE ON T 

911 : BYTE BOUNDRY OF SUSWR.--4 BITS 

912 007400 Baud = 7400 

913 010000 BRK = 10000 

914 020000 CABLE = 20000 

915 040000 FRED = 40000 

916 : «3H HHH HHH HEHEHE HH HHH HHH HEHEHE 
312 ‘ABTTL TRAP CATCHER 

919 oo0o00 20 

920 HALL UNUSED LOCAT TONS FROM 4-776 CONTAIN A.” .+2,HALT™ 

921 *SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

ae eerie j #LOCATION o CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

$24 000174 O00000 DISPREG: LORD 0 ;;SOFTWARE DISPLAY REGISTER 

$e 000176 o00000 REG: oo. 8 ane ‘SOFTWARE SWITCH REGISTER 

927 000200 000137 001336 IMP aaSTART SUMP TO STARTING ADDRESS OF PROGRAM 


10e 


-DVDVA-A MACY11 27(1006) 16-MAY-77 10;36 PAGE 23 
O6-MAY-77 15:29 ACT11 HOOKS : SEG 0021 


-SBTTL ACT11 HOOKS 
3 HMMMHHHEHHEHEHHHEHHHHHHHHHHHHHHIHHHHHHHIHHIHHIIII EEE eet 


!HOOKS REQUIRED BY ACTLI 


Cc 


vw 
= 
— 


ood204 SSVPC=. ;SAVE PC 
ooo046 sao ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOF 


: 0 ;;2)SET LOC.S2 TO ZERO 
—- TE 
“SBTTL APT PARAMETER BLOCK 
SETI LOCAT ons) 24 6R0 46 REQUIRED FOR APT aa ceaances 


24 AND 44 AS REQUIRED FOR 
Neat lodsdeb-dgheb-dubeh-utch-d-b-teb-Sdclelelelalalelalalalalalalatalalaleietslsisttel dae 





Z 
eal tala ui ERS be Rar itp ah ce FF 


001000 .$X=. 3 LOgaT Jon 
000024 224 i T FAIL TO POINT TO START OF PROGRAM 
000044 7 HIPOINT To eet 10 CT ADDRESS PNTR. 
000044 001000 SAPTHOR + POINT 19 set HERDER BLOCK 
001000 peerr [ocart I 
; fee ti 
SETUP T PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
‘INTERFACE SPEC. 
001000 ee ane: 
001000 o00000 SHIBTS: .WORD O ;; TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001002 001174 SMBADR: .WORD S$MAIL ;;ADD%ESS OF APT MAILBOX (BITS 0-15) 
001004 o0000S STSTM: .WORD 5S ;;RUN TIM OF LONGEST TEST 
001006 oo00sSs SPASTM: .WORD 45S ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001010 OO0036 SUNITM: .WORD *-ADDITIONAL RUN TIME (SECS; OF A PASS FOR EACH ADDITIONAL UNIT 
001012 “WORD  SETEND-SMAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


me wt ee ee ee  - ee  e “<< o———— + - 


JOe 
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DVDVAA.P11 Ob6-MAY-77 15:29 COMMON TAGS SEQ 0022 

31 .SBTTL COMMON TAGS 

963 ; + PESSEEEKERSSESERERERSSSSSRSSSRRRAEA ASSES RRRRAERRARRESERRRRRE RAE 

ee iiTuis IR THE COROCRAR a ae ee eee oe 

966 ' : 

97 001100 21100 

98 001100 SCMTAG: START OF COMMON TAGS 

a ii sea STSTNM: BYE 3 : CONTAINS 

971 001193 000 G: .BY 0 CONTA wre 

872 001104 OO00000 ICNT: 0 ?: CONTA ST TION COUNT 
aa OBtTTB pocoee Seen: “tome 8 Bolts 

875 O0lll2 000000 SERTTL: .WORD 0 i CONTR a iia 

$76 001114 000 SITEMB: -BYTE 0 CONTAINS I 

977 001115 001 SERMAX: ; 1 : CONTA 

978 001116 000000 SERRPC: “FORD 0 : :CONTA SI i 
Rie Be eee a eee 

382 Bis NOODnN seopaT, i 11 CONTAL "BAO | 

0011 DO0OL ‘HOR 33 -NO Be USED 

one inte oar 1 SAUTOB: .BYTE 6 : AUTOMAT ICATOR 

se Olle | o Sinthe: “EVE 8 {INTERRUPT RODE THBICR 

998 001140 177570 SWR:  :WORD OSWR $ AOORESS OF sy ITCH REGISTER 

$89 001142 177570 DISPLAY: .WORD ODISP ISPLAY REGISTER 

990 001144 177560 STKS: 177560 is TTY TA 

991 001146 177562 STKB: 177562 fe ngs 
992 001150 177564 STPS: 177564 itty REG. ADDRESS 

993 001152 177566 STPB: 1 :: TTY PR ADORESS 

994 001154 000 SNULL: Gia 0 : CONTA pit EA FORE EAE Soy 
995 O01 02 SrILLé: -BYT e, i CONTR 4S FILLER CHARAC RED 
ag Boies 000 Hi LG: BYTE 0 ae IN AVAILABLE FLA FLAG ma INE FEED 
$33 Sorte Sooeop euee: .B i eK UBpreas 
1000 001164 177607 000377 :  .ASCIZ 207) (377 <377) tie Ste pore 
1001 001170 077 SQUES: .ASCIT QUESTION MARK 
1002 001171 015 : ASC 1 jj CARRIAGE RETURN 
1003 001172 oo0012 : ASCIZ «12> ‘LINE FEED 
1004 TTT iiiiiiiiiitiiiiiitiiiiiitiitiittiiiiitierieiicircei gc: 
1005 ‘ASTTL APT MAILBOX-ETABLE 
i H - Re geeseet cerppanananmmts penamenee mr snereen rei 
1008 001174 : APT MAILBOX 
1010 001174 oj0000 seat . WORD TY ae 
1041 001176 000000 TAL: : WORD Ar BTAL 7 F 
1012 001200 000000 STESTN: .WORD ATESTN ii TEST NUMBER 
1013 001 000090 SPASS: APASS 
1018 001 DO000C SDEVET: ‘HOR ADEVCT EV cE CE COUNT 
101S O01 m . AUNIT 
1016 901210 SMSGAD: .WORD AMS ge ADDRESS 





ee ee ae 


SEG 0023 


KO0e 
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APT MAILBOX-E TABLE 


O6-MAY-77 15:29 


MAINDEC-11-DVDVA-A 


DVDVAA.P11 


— 

2 
= u 
@ 3 
= 2 * 
“~ Sau 
a ie = E a 
Pe eo Se 
—8 S88 & Eee 
= fee Sees g 


81 

23 BYTES 
BYTE 
BLK se 
-S.BYTE 
BLK 83 
BYTE 
BLK #4 
1, BUS 

QUI 





dum «|OUR 
7 ee 


ee Sotesnseeess e “— Pats Sees 


; > hee 
ee wee 
aoe SeSseSrePas af" 


Gee 0B EME 


Derraerats SS =} BERN Seceee 


ed Rd my oe ! alalatalatatatatatotatatetat 


So SUNS UANS SER SES BEMSR ee eee ceaeacad 


Sm een ame hee Kee Kame ieee Kee Koo ene eam loom hea em kam ham am ae am Kam ka Ram Lon een hon kote Le, ee ee 


MAINDE C- 11-DVDVA-A MACY11 wheel -MAY-77__ 10: PAGE 26 
DVDVAR. Pil O6-MAY-77 15:29 POINTER TABLE SE@ 0024 


1053 .SBTTL ERROR POINTER TABLE 
1 s*THIS T TAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

i ST ERR ME AS OPLLRL OR. PRINT, 9 

1057 jx. OcaT ION SITENG. THIS NUNB ea ES WHICH CO TTEH TH THE TRGLE. IS PERTINENT. 
ies SEL, oh TW Hh Ge ok CMLL", BOUhbls Bethe 1s rows 
1061 .t a s POINTS TO THE ERROR MESSAGE 

1062 te OH ssPOINTS 10 TA HEADER 

1063 te OT :!POINTS TO THE DATA 

1064 + OF tSPOINTS TO TA FORMAT 

1065 

1066 

1067 001254 SERRTB 

{DES 001254 175610 " PRODRE 

io Obese Br VEG: ae 

1071 O01 175610 RCSR: + 0 

1072 OOl262 175612 RBUF : + 2 

ii ise He (ea. Rae 

1074 O01 175615 TCSRHI: is 

1075 OO0l2e70 175616 aur: DLADOR + 6 

ipyy BOTS Soooen Te KW 20, :FOR RS STACK 

1078 001334 000000 RSSTACK: + foRD'B 


MAINDEC-11-DVDVA-A 
O6-NAY-77 1S 


1079 
1080 


He 
1 
1 


BERS 


BERRA OSE 


be hn bt be ee bt Be mt ee tt ee ae be ee Ps be ee hs pee ee Re fe Be Pe ps ee fee 


SBREBBRURRPBRLBSONSH con -oBSVEREONeS 


DVDVAA.P11 


001336 


= 


£ 
-_ 
£ 


SDB ERES 


Ra 


uw 
me 
Co 


e EkEaee Be 


Tou Bee Fe he ee [ee oe oo oe 


P RES 


Shoe SRERE 


o 
= 


oleate aloo l=/=) 
ae fee fm fo Pam P= Po Po pe 


Raa Ses 


1 
104401 
005737 


macyyt 27( 1006) 





MOV 

S OR 

; ;EQUAL Me 
oooco4 MOV 
MOV 

MOV 


000001 


ee rm ee ee He eee = 


MOe 


-MAY 0 PAGE 27 
eABoR Sotnren tice SEQ 0025 
START: 
SBTTL INITIALIZE 1 THE COMMON TAGS 
sh noo rsa SENET LOCATION TO BE CLEARED 
CLR (R6)+ *CLEAR MEMORY LOCATION 


ihe, SP a kee Track POINTER 


;; INITIALIZE A FEW VE 


oat 


MOV -10T VECTOR FOR SCOPE ROUTINE 

i See : 

HOV ‘tere, VECTOR FOR ERROR ROUTINE 

HOV aE MECTOR FOR TRAP CALLS 

MOV Save POLE FAILURE VECTOR 

NOV ail 

CLR INES’ Tons. 

nove al 

MOV t., Ne SCOPE 
j;SIZE FOR @ HARD TTCH ee OgIT Is 

a c i ea ERROR vec 


Ha | 4 ee aoe 


Weiea arr 


: 
c. 


a 
ga & 
3 


BR F NO T 
64S: Hoy #65S, (SP) CET UP FOR mt! 
65S: HOV se G, SUR aye: yiPOINT TO SOFTWARE SWR 
66S: MOV +, HERRVEC Ppatpden ERROR VECTOR 
cite SOP TSIZE, SENVM APT 
BEG 67S oe Ae tte APT ue Fon 
tot V 14 Se catch GISTER 
SgrT 


; TYPE THE NAME vs an IF F 
TNC sEIRRT TTR, 


me (es 4 Haat 
CHE BSENOAD,OH2 = jj Slt ee 


F YES 
SBTTL GET VAL OFbR SOF TWARE shit ae 
. TST Sn 2 7 ARE fe ING UNDER XXDP/ACT? 
BNE O$ : BRANCH S 
CMPB Ss SENV,, #1 tt ARE WE ING UNDER APT? 
BEQ 70$ ::BRANCH IF YES 


——— 


fh bas bo fe Po hae Bs fe Bee 
ee ae ee ee ee oe ne 


Br— SBBIRR 


NOe2 


MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE i 
DVDVAA.P11 O6-NAY-77 15:29 GET VALUE FOR SOFTWARE SWITCH REGISTER 


moles ite 177266 000176 CMP SHR, #SHREG Hh ay REG SELECTED? 
t ee 
cates 1 eran +? GET -SWR SETTINGS 


pee 71$ 
a ae oe we a ee ;;SET AUTO-MODE INDICATOR 
001670 000410 a --GET OVER THE ASCIZ 
001712 iie%s: -ASCIZ ORS > xMD-11-DvDUATRECCREP 


SEG 0026 


— bb bb Be bb bb be be he be Be he be be be be he Pe be Pe be Be Bo ho he Pe 
SAZIN-SSECEHRIGRZSSEVURAPONL ESSERE 


a 


-Pll 


00171 
0017 
001 


bai 


001724 
001724 


fo Dae ha pe bm bt he poe ee a en od 


fee ssewas Ses 


MAINDEC-11-DVDVA-A 
DVDVAA O6-MAY-77 15: 


012767 


004767 


012167 


011167 
016701 


016767 
016767 
062767 
016767 
062767 
16767 
7 
016767 
062767 
012705 
o0000S 


33! 27( 1006) off 


010176 


177312 


177306 
177300 


177274 
177266 
177262 
1772S4 


177250 
17724e 


ae ss ge 63 88s 88 8 


“4 


—— + +. 





03 


B 
oh SBP THARE SHITCH REGISTER 


LET INITFLAG := #1 


#1, INITFLAG 
CYCLE ; NO ARGUMENTS--ADORS -> NEXT ADDRESS 
C, CYCLE 
: a7 ee 
ip LET bLADD := (ores 
ADRS + 
: -GET UNIT VECTOR 
; em LET OLVEC := (ADRS) 
_— LET AORS := DLADD 
eaean diate: -RCSR = DLADD + O 
bin LET RCSR := DLADD 

aguante LET RBUF := DLADD + s2 
te, RU LET TCSR := DLADD + #4 
Ot a al 

‘ LET TCSRHI := DLADD + #5 
fa ol 

‘ LET TBUF := DLADD + #6 
a 

aie ~ LET RS := #RSSTACK 

S K, 
- ; ;BRESET 


mt a ee ne em ee ee ee - 


CO3 


. eae an MACY11 27(1006) 16-MAY-77 bli, SRE 30 


: 06-MAY-77 15:29 Tl SEQ 0028 
1177 32 LAARESKSRARERKAERKE LL SRRSRRSARSRRERSRERARARRERRAARRRRRRRERERESE 
He pest HEP dtirues ar Tue sooes as mace 1m 
1180 i T ATES TE TO BE CORREE? ane THE BP ite RESPONDS 
1181 1% TO THAT ADDRESS SPACE 
1 186 © + LERESESESSESSSRRSRE PRESSE SERRA SSSR SSSRRERARRRRRERERERRRERE EE 
ties ae 012767 o00002 177114 Stis ay #2, STIMES D0 2 regratzoNs 
il 012767 000001 177126 MOV #1’) STESTN ::SET TEST NUMBER IN APT MAIL BOX 
He BEES our: wir ae haem os ee 
1188 - SET UP INTERRUPT 
1189 0020S SETVEC &ILLMEM, SINTSRV, #PR7 
1190 902056 01014 MOV R1,-(SP) 

1191 002060 012701 oj0004 MOV a] HEN, RL 

1192 Q0e064 012721 011574 MOV SIN (Ri)+ 

1193 002070 012711 000340 MOV #PR7, (RL) 

1198 002074 012601 MOV (SP)4+,R1 

ile reed 005067 177170 CLR I a sieseure 

1197 002102 REPEAT 

1198 002102 $1: 

1199 002102 BGNSUB 

1200 O02102 012767 002110 177000 MOV #64S, SLPERR 

1201 “CLEAR FLAG 

1202 002110 LET INTFLAG := 80 
1203 002110 O0S0&7 007466 CLR INTFLAG 

1205 ;READ FLAG 

1206 002114 005711 TST JADRS 

1207 O0e116 IF INTFLAG NE #0 THEN 
1208 002116 005767 007460 TST INTFLAG 

1209 OOel22 001401 BEQ $2 

1210 ; FATAL ERROR 
le1l 002124 ERROF 1, ,NODL 
l2l2 O0e1e4 104001 ERROR 1 

1213 O0ele ENDIF 

1214 O0ele6 $2: 

1215 Oe 1eb ENDSUB 

1216 lob LET I:=2I1+ #2 
1217 O02le 062767 oO00002 177136 ADD 82,1 

1218 OO0C134 LET ORS := DLADD +I 
1219 002134 016701 177114 MOV DLADD , ADRS 

1220 140 177126 ADD 1, ADRS 

lee 144 UNTIL I EQ #8. 

1 144 026727 177122 000010 CMP I, #8. 

1223 002152 001353 BNE $] 

1224 154 CLRVEC ILLMEM 

1225 0020154 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

1226 002156 01026 MOV Re -(5P) PUSH Re ON STACK 

1358 bosies otoine COCO my CLR 

1229 00216 062702 000002 ADD #2;Re 

1230 002172 010221 Ro’ (R1)+ 

1231 002174 005011 CLR (RI) 

te3e 002176 012602 MOV (SP)+,R2 ;;POP STACK INTO Re 


DO3 


MAINDEC-11-DVDVA-A MACY11 27(1006) * choot 77 (10:36 PAGE 31 
DVDVAA.P11 O6-MAY-77 15:29 ADDRESSABILITY SEG 0029 
1233 002200 012601 MOV (SP)+,R1 ;;POP STACK INTO Rl 


153¢ oozene ENDTST ee 


002202 
002204 
002212 


weak eat ae 
DVDVAA.P11 


06-MAY-77 


000004 
012767 
012767 
012767 


032777 
001401 


032777 
001001 


012767 


042777 


MACY11 27(1006) 
15:29 


000010 
oo00de 


000001 


000001 


000001 


000001 


176746 
176760 


176662 


177030 


176642 
177910 


177002 


176614 


176762 


176754 


1 
Tl 


ii THE FOLLOWING 


fits 


&-MAY-77 10:36 PAGE 32 
ADORESSABILITY 

Hiahnhghaiahabnhalabnhelnbebniabalabnbabnbahslalababahsbnlebbabelalsbbahebntalelntatabntnialatnbnintalalalalalalalalalaiaiala 
@ TESTS TEST ALL ’REAO WR 

nL TERE CORSEEOGEGELESUDEALSREAPTIORSEOOASSEEEORSEETARREHEEE IEEE 
irest 2" See Teeno set Cleat RESET ee 

THIS mu I THE He On IN THIS POSITION 

fgnssngesageneeeetadiananseesnentondsnnsesessseessesssnontee 


#10, STIMES ;00_10 ITERATIONS 
MOV #2, STESTN SET TEST NUMBER IN APT MAIL BOX 


; SEE IF IT IS CLEAR 
BGNSUB 
MOV #64, SLPERR 


IF SBREAK SETIN @TCSR THEN 


BIT #BREAK , JTCSR 
BEQ $3 


BREAK DID NOT RESET IN TCSR 


ERRHRO 2, ,DIDNOT 


ERROR 2 
ENDIF 


$3: 


ENDSUB 

; TRY TO SET BREAK BIT 

BGNSUB 
MOV -&64S, SLPERR 
BIS  sBREAK,aTCSR 


LET @TCSR := JTCSR SET.BY #BREAK 


; STUCK TO 0 


@BREAK NOTSETIN @TCSR THEN 


BIT SBREAK , JTCSR 
BNE $4 


BREAK DID NOT SET IN TCSR 


ERRHRO 3, ,DIDNOT 


ERROR 3 
ENDIF 


$4: 


-——— ee ee ee a  -n  -  e - - - - -- 


ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
MOV #64S , SLPERR 


LET @TCSR := OTCSR CLR.BY #BREAK 


BIC #BREAK , JTCSR 


STBRERK'SETIN-aTC 


BIT #BREAK , JTCSR 
$S 


ERR 
ENDIF 


mm mm ne en + eee + 


THEN 


rey O70 Ne wor CLEAR IN TCSR 


SEG 0030 
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DVDVAA.P11 O6-MAY-77 15:29 Te BREAK - TCSRO SET, CLEAR, RESET SEQ 0031 


4 §S: 
Basai . ENDSUB 
; NOW SEE IF RESET CLEARS IT 


012767 002322 176566 #64S, SLPERR 
002322 Pade Sa OT eee anal LET  aTCSR := aTCSR SET.SY sBREAK 
" poy presi SSUE Bus RESET 


002332 IF SBREAK SETIN @TCSR THEN 
032777 000001 176724 OM saree 


Bm ee 


Be 
BS 
S 


8 


- BREAK DID NOT RESET IN TCSR 
002342 ERRHRD 5, ,DIDNOT 


002344 ENDIF 
002344 $6: 
ENDSUB 


002344 ENDTST 


Ce ee ee ee et et eee 
rietstetatet-ci-in tints 


aT eT 
MfCWMHO 


a eee 
DVDVAA.P11 


Ht 


elrinisiaiiniicich oe 


be b= b= b= bb b= bb bb bb Bh bs bh 


SOLER RTE R EE TARTS SAR EOS O Re OLN 


B+ sb be Be be Be he bb be Be 


3 


06-MAY-77 


ooo004 
012767 
012767 


012767 


032777 
001401 


012767 


042777 


032777 
001401 


104010 


MACY 11 
15:29 


002410 


002436 


1 27(1006) 


176604 
176616 
176520 


176666 


176500 
176646 


176640 


176452 
176620 


176612 


16-MAY-77 10:36 
Te BREAK 


GO3 


PAGE 34 
- TCSRO SET, CLEAR, RESET 


eS deheheeheheheiaheheheheheichehheicheieheioheiehebsheisheisheisheheboishcheheishobshchebohebobeioheiobeioiehobelohehokete 
Oy eee ee ag; span aaa 


Test 


3 MAINT - TCSRe SE RESET 
Eid ili mn 


v #10, $STIME ::00 10 ITE 
MOV HO Sil TN Hed fed NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 
MOV #64, SLPERR 
IF SMAINT SETIN TCSR THEN 
BIT #MAINT, JTCSR 
BEQ $7 
MAINT DID NOT RESET IN TCSR 
ERRHRO 6, , DIDNOT 
ERROR 6 
ENDIF 
$7: 
ENDSUB 
; TRY TO SET MAINT BIT 
BGNSUB 
MOV #64S, SLPERR 
LET  aTCSR := @TCSR SET.BY sMAINT 
BIS #MAINT, aTCSR 
; STUCK TO 0 
IF IMAINT NOTSETIN @TCSR THEN 
BIT #MAINT, JTCSR 
BNE $10 
MAINT DID NOT SET IN TCSR 
ERRHRD 7, ,DIDNOT 
ERROR 7 
ENDIF 
$10: 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
MOV #64S, SLPERR 
LET  a@TCSR := JTCSR CLR.BY sMAINT 
BIC #MAINT, ITCSR 
; SHOULD HAVE CLEARED 
IF #MAINT SETIN aTCSR THEN 
BIT 8MAINT, JTCSR 
BEQ $11 
MAINT DID NOT CLEAR INTCSR 
ERRHRD 8, , DIDNOT 
ERROR 8 
ENDIF 
$11: 
ENDSUB 


; NOW SEE IF RESET CLEARS IT 


SE@ 0032 


MAINDEC-11-DVDVA-A 
DVDVAA.P11 O6-MAY-77 15:29 


1378 
374 
1375 


_ 


b= b= bb = b= bb b= b= bb ps be Pe ee 


Be BeBe RRER REE IS 


BOSMEE 012767 O0e4%64 176424 


002464 
002464 052777 O00004 176572 


ey ome 


032777 000004 176562 
001401 


MACY11 27(1006) 
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13 MAINT - TCSRe SET, CLEAR, RESET 
BGNSUB 
MOV #64S, SLPERR 
LET  aTCSR := QTCSR SET.SY sMAINT 
BIS SNAINT, JTCSR | 
- ISSUE BUS RESET 
BRESET 
RESET 
IF #MAINT SETIN @TCSR THEN 
BIT #MAINT, aTCSR 
_ ns MAINT DID NOT RESET IN TCSR 
iRBHAD 2B 1DNOT 
ERROR 9 
ENDIF 
$le: 
ENDSUB 


HO3 


ee ee ne ee ees we ees + 


ENOTST 


SEG 0033 
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1393 
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ESeSnncaRcesa aa 
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012767 


042777 


032777 
001401 


104014 
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176442 
1764S4 


176344 


176S1e 


176324 
176472 


176464 


176276 


176444 


176436 


1 
T3 


ee ee eee se oe -e 
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MAINT - TCSR2 SET, CLEAR, RESET 


5, Se SE AE ab aE HE a a a a a a a a a a a a 
FE ee 


;*#TEST 4 XM SET 
“NS presen errpepper sume pepe 


téTy: Sc 
MOV #10 MES ::00.1 
MOV 40ST $300, ety Noreen IN APT eT nar BOX ‘ 
MOV #PR7,-(SP) jsPUT W on étaen 
MOV #64S' - (SP) 1 Ned Pe oh CT RCK 
RTI + OOP NE W PC oho PS 
64S: 
; SEE IF IT IS CLEAR 
BGNSUB 
MOV #65S, SLPERR 
IF #XMITIE SETIN @TCSR THEN 
BIT 8XMITIE, JTCSR 
BEQ $13 
XMITIE DID NOT RESET IN TCSR 
ERRHRO 10, ,DIDNOT 
ERROR 10 
ENDIF 
$13: 
ENDSUB 
; TRY TO SET XMITIE BIT 
BGNSUB 
MOV #64S, SLPERR 
LET  aTCSR := aTCSR SET.BY sXMITIE 
BIS SXMITIE, 9TCSR 
; STUCK TO O 
IF #XMITIE NOTSETIN JTCSR THEN 
BIT &XMITIE,aTCSR 
BNE $14 
XMIT DID NOT RESET IN TCSR 
ERRHRD 11, ,OIDNOT 
ERROR 11 
ENDIF 
$14: 
ENDSUB 
; TRY TO CLEAR A_SET BIT 
BGNSUB 
MOV #64S, SLPERR 
LET  aTCSR := JTCSR CLR.BY #XMITIE 
BIC #XMITIE, 3TCSR 
; SHOULD HAVE CLEARED 
IF #XMITIE SETIN aTCSR THEN 
BIT SXMITIE,3TCSR 
_ om XMIT DID NOT CLEAR IN TCSR 
ER Bono 
ERROR 12 


SEG 0034 


z 
5 


FRECRA CSOD Haas ; 


b= P= bs = bh hs bh bs bo bs me be be hs be HS > ho 


saeee 


JQ3 
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ENDIF 

$15: 
ENDSUB 
: NOW SEE IF RESET CLEARS IT 
002632 BGNSUB 
002632 012767 002640 176250 MOV #64S, SLPERR 
002640 LET  aTCSR := 3TCSR SET.BY sXMITIE 
002640 052777 OO0100 176416 BIS #XMITIE, aTCSR 
- ISSUE BUS RESET 
002646 BRESET 
00264 000005 RESET 
002650 IF SXMITIE SETIN @TCSR THEN 
002650 032777 O00100 176406 BIT #XMITIE, JTCSR 
002656 001401 BEQ $16 
XMIT DID NOT RESET IN TCSR 

002660 ERRHRD 1 , ,DIDNOT 
002660 104015 ERROR 13 
J02662 ENDIF 
002662 $16: 
002662 E 
002662 ENDTST 
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1475 
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OEE REO SROs S Sa RAP Bee BSE SRRSERES 


eh ee 
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000004 
012767 
012767 


012767 
042777 


032777 
001401 


104016 


012767 


000010 
oooods 


002734 


002762 


27( 1006) 


176266 
176300 


176202 
176344 


176336 


176154 


176316 
176310 


176126 
176270 


176262 


a a ee ee ee ee = ooo 
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TY XMITIE - TCSR6 SET,, CLEAR, RESET 


5, AE aE SE SE a a SS 0 a a a a a a a a 
i tenseeaneennnnepenconsnseeseensusnsessestanonasonensensescesens 


it os T 
Re; T pore hoFELEAR TH THIS BIT 
+ THIS BIT IS THE ONLY ONE IN THIS POSITION 
i Lolot test Pon AN INIT TION 
f SHR Weer th SEN 
ggg ARLE mmm 
MOV #10, STIMES 00 10 ITERATIONS 
MOV 4S. STESTN SET TEST NUM NUMBER IN APT MAIL BOX 
M say to! iE R BIT 
MOV ws. wen 
LET | @RCSR := ORCSR CLR.BY #OTR 
BIC 8OTR, ARCSR 
; STUCK TO 0 
IF #OTR SETIN @RCSR THEN 
BIT 8DTR, ARCSR 
BEQ $17 
- DTR DID NOT CLEAR IN RCSR 
ERRHRO 14, , DIDNOT 
ERROR 14 
ENDIF 
$17: 
ENDSUB 
; TRY TO SET DTR 
BGNSUB 
MOV #64S, SLPERR 
LET | @RCSR := ORCSR SET.BY s#DTR 
BIS #OTR, IRCSR 
IF #OTR NOTSETIN @RCSR THEN 
BIT 8O0TR, ARCSR 
BNE $20 
DTR oD Nor SET IN RCSR 
ERRHRD 1 
ERROR 15 
ENDIF 
$20: 
ENDSUB 
; TRY TO CLEAR IT AGAIN 
BGNSUB 
MOV #64S, SLPERR 
LET  @RCSR := ORCSR CLR.BY #DTR 
BIC #DTR, RCSR 
D HAVE CLEARED IT 
IF TR SETIN @RCSR THEN 
BIT #DTR, ARCSR 
BEQ $21 


OTR DID NOT CLEAR IN RCSR 
ERRHRO 16, ,DIDNOT 


SEQ 0036 


MAINDEC-11-DVDVA-A MACY Li 
DVDVAA.P11 O&-MAY-77 15:29 


158 ppg 1ovoes 
He 003002 

i835 003008 
1 


3 
B32 


hp Re 


16-MAY-77 10:36 
TS 


LO3 


39 
SET, CLEAR 


ENDIF 


ENDSUB 
ENDTST 


~@.. 


SE@ 0037 





003040 
003046 
003046 
0030S4 
003055 

1 

187 Qoaoen 
003060 
003060 
003060 
003065 
003066 
003074 
003074 


RRRE? B 


BB BEBEB 


=s 


Be BG 
RR Es 


042777 


032777 
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176146 
176160 
176172 


176122 


176042 


176204 


176022 
176164 


176156 


175774 


176136 


176130 


a er ee ne ee ee ee so ee ee oe + - 
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16-MAY-77_ 10:36 40 
TS SET, CLEAR 


PAGE 
OTR - RCSR1 


ge SE SESE ESE EE eS 0 a a a a a a 
este Reoseno  Reske SET GEM, ReSeT 


it T6 RCSR2 
THIS TEST ASSUMES THAT J ER ER 
CR | epee ersastep op wenn ope 


fit? 


MOV #10 1 
MOV Hae eS Hea Test T ROMER IN APT MAIL BOX 
F &FRFD NOTSETIN SUSWR THEN 
BIT 8FRFD, SUSWR 
$22 
EXIT TST 
MOV #1. STIMES 
BR St? +3 EXIT THIS TEST 
ENDIF 
$22: 
; SEE IF IT IS CLEAR 
SGNSUB 
MOV 864$, SLPERR 
IF #REQSEND SETIN RCSR THEN 
BIT #REQSEND, JRCSR 
BEQ $23 
REQSEND DID NOT RESET IN RCSR 
ERRHRO 17, ,DIDNOT 
ERROR 17 
ENDIF 
$23: 
ENDSUB 
; TRY TO SET REQSEND BIT 
BGNSUB 
MOV 864$, SLPERR 
LET | @RCSR := ORCSR SET.BY #REQSEND 
BIS #REQSEND, JRCSR 
; STUCK TO 0 
QSEND NOTSETIN @RCSR THEN 
BIT #REQSEND, JRCSR 
BNE $24 
REQSEND DID NOT SET IN RCSR 
ERRHRO 18, ,DIDNOT 
ERROR 18 
ENDIF 
$24: 
ENDSUB 
; TRY TO CLEAR A_SET BIT 
BGNSUB 
MOV #64S,, SLPERR 
LET  @RCSR := ORCSR CLR.BY sREQSEND 
BIC 8REQSEND, JRCSR 
; SHOULD HAVE CLEARED 
IF #REQSEND SETIN @RCSR THEN 
BIT #REQSEND, JRCSR 


SEQ 0038 


--—-- --+- ——— + + eC Ce 
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003130 


D031 

ne 3 
003134 
003134 
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001401 


104023 
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003142 175746 


000004 176110 


000004 176100 


NO3 


D owes 10:36 PAGE 41 


REQSEND - RCSR2 SET, CLEAR, RESET SEQ 0039 
BEQ $25 
REQSEND DID NOT CLEAR IN RCSR 
ean” te ERRHRD 19, , DIDNOT 
ENDIF 
ENOSUB 
; NOW SEE IF RESET CLEARS IT 
MOV #64S, SLPERR 
at oe aie LET  @RCSR := ORCSR SET.BY sREQSEND 
ae, - ISSUE BUS RESET 
amet BRESET 
IF BREQSEND SETIN @RCSR THEN 
B17 BREQSEND, @RCSR 
REQSEND DID NOT RESET IN RCSR 
we ERRHRO 20, , DIDNOT 
ENDIF 
ENOSUB 
ENDTST 


crc en ee em ee ee eee 
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DVOVAR Resend - Reshe 


-Pll = O6-MAY-77 15:29 SET, CLEAR, RESET SEG 0040 
1 i Jeet nett ttnetetentnentnteetttttatstaapnt nena tara 
1 testy eeGatt ace SS EE J JA a A 


i ‘al 2 See ndalo 


1630 "1 sli-+-1-+-+ ‘manatee caeaiataaanaedataiaiaatennritiaataiate 

1631 003164 O00004 téT7: SCOPE 

1632 003166 012767 000010 175764 MOV a0 ra 5 300 7 ETERATIONS 

1633 003174 012767 000007 175776 MOV $ iit] NUMBER IN APT MAIL BOX 

1634 Ft? Is CLEAR 

1635 003202 

163 O03e02 012767 073210 175700 MOV wean 

1638 003210 IF #SECXMIT SETIN @RCSR THEN 
1639 903210 032777 000010 176042 BIT 8SECXMIT, JRCSR 

1640 16 001401 BEQ $27 

1641 SECAnIT O10 NOT RESET IN RCSR 
1642 ERRHRO 2 

1643 104025 ERROR 21 

1644 ENDIF 

164S $27: 

164% ENDSUB 

1647 

1648 ; TRY TO SET SECXMIT BIT 

1649 BGNSUB 

1650 012767 003230 175660 MOV 864, SLPERR 

1 003230 LET  @RCSR := ORCSR SET.BY sSECXMIT 
1 903230 052777 OO00010 176022 BIS #SECXMIT, ARCSR 

1653 ; STUCK TO 0 

1654 003236 IF #SECXMIT NOTSETIN @RCSR THEN 
1655 00303 032777 OO0010 176014 BIT #SECXMIT, ARCSR 

1656 003244 001001 BNE $30 

1657 SECXMIT DID NOT SET IN RCSR 
1658 00324 ERRHRO 22, ,DIDNOT 

1659 00320% 104026 ERROR 22 

1660 003250 ENDIF 

1661 003250 $30: 

bbe 603250 ENDSUB 

1664 ; TRY TO CLEAR A SET BIT 

1665 003250 BGNSUB 

1666 003250 012767 003256 175632 MOV #64, SLPERR 

1668 003256 LET | @RCSR := ORCSR CLR.BY sSECXMIT 
1669 003256 042777 OO000i0 175774 BIC #SECXMIT, ARCSR 

1670 ; SHOULD HAVE CLEARED 

1671 003264 IF #SECXMIT SETIN aRCSR THEN 
1672 003064 032777 OO00i0 175766 BIT #SECXMIT, JRCSR 

1673 O003e72 001401 BEQ $31 

1674 SECXMIT DID NOT CLEAR IN RCSR 
1675 003274 ERRHRO 23, , DIDNOT 

1676 003074 104027 ERROR 23 

1677 003276 ENDIF 

1678 003276 $31: 

1679 003276 ENDSUB 
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012767 


0S2777 


003304 175604 


000010 175746 


000010 175736 


$32: 


| adiaartad 10:36 PAGE 43 


CO4 


SECXMIT - RCSR3 SET, CLEAR, RESET 
MOV #64S, SLPERR ~ 
"+ NOW SEE IF RESET CLEARS IT 
sks ameuilt same LET  @RCSR := ORCSR SET.BY #SECXMIT 
7 ; - ISSUE BUS RESET 
RESET BRESET : 
IF 8SECXMIT SETIN 3RCSR THEN 
BI SSECKNIT, ARCSR 
- SECXMIT DID NOT RESET IN RCSR 
sees ioe ERRHRD 24, , DIDNOT 
ENDIF 
ENDSUB 
ENDTST 


SE@ 0041 
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175622 
175634 


175536 


175700 


175516 
175660 


175652 


175470 


175632 


175624 
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17 SECXNIT - RCSR3 SET, CLEAR, RESET SEQ 0042 


i bobobobobobobetedebedebodobobobobededebefefefodotetebetetedededetttefetetetededetetetettoetededefotoboboeetedefofof 
pipaseegenenenan soca nea 
j ATEST 10 DATAIE - , RCSRS 2% es oat POSITION 

i THA fe REO An Wl 


; Ree EIN ani de een gate ees 
#10,$ 10 ITERATIONS 
#10'§ STEstn 300, te NUMBER IN APT MAIL BOX 
; SEE IF tT IS CLEAR 
BGNSUB 
MOV wa. arue 
IF SOATAIE SETIN @RCSR THEN 
BIT SDATAIE, IRCSR 
BEQ $33 
DATAIE DID NOT RESET IN RCSR 
ERRHRD 25, , DIDNOT 
ERROR 25 
ENDIF 
$33: 
ENDSUB 
; TRY TO SET DATAIE BIT 
BGNSUB 
MOV 864S, SLPERR 
LET  @RCSR := ORCSR SET.BY #DATAIE 
BIS 8DATAIE, IRCSR or ee 
IF #DATAIE NOTSETIN @RCSR THEN 
BIT SDATAIE, IRCSR 
BNE $34 
DATAIE DID NOT SET IN RCSR 
ERRHRO 26, , DIDNOT 
ERROR 26 
ENDIF 
$34: 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
MOV 864S, SLPERR 
LET | @RCSR := ORCSR CLR.BY #DATAIE 
BIC #DATAIE, IRCSR 
; SHOULD HAVE CLEARED 
IF #OATAIE SETIN @RCSR THEN 
BIT sODATAIE, ARCSR 
BEQ $35 
DATAIE DID NOT CLEAR IN RCSR 
ERRHRO 27, , DIDNOT 
ERROR 27 
ENDIF 
$35: 
ENDSUB 


EO4 
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1759 ; NOW SEE IF RESET CLEARS IT 

1760 003440 

1761 003440 012767 OO3446 175442 MOV #64S, SLPERR 

1763 OO3446 LET  @RCSR := ORCSR SET.BY s#DATAIE 

1764 OO3446 052777 OO0040 175604 BIS #DATAIE, IRCSR 

1765 ; - ISSUE BUS RESET 

1 003454 rs BRESET 

1767 003454 000005 RESET 

1768 003456 IF #DATAIE SETIN ARCSR THEN 

1769 000040 175574 BIT #DATAIE, IRCSR 

1770 OO3464 001401 BEQ $36 

1771 - DATAIE DID NOT RESET IN RCSR 

1772 003466 ERRHRD 28, , DIDNOT 

1773 003466 104034 ERROR 28 

1774 003470 ENDIF 

1775 003470 $36: 

1776 003470 E 

1777 003470 ENDTST 

1778 

17793 

1780 
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178) 5, SESE AE AEA AE AE SE SE A 4 A SE a a a a a a a a a a a 

1 i sepeueqnOnnenennnenegpanessoanssessnsssninssesnnneasannccanses 

1783 fi il RCVRIE - /ChEBR RESET 

1784 + THIS qT THE tn THIS POSITION 

178S i® AND Tre 

1786 AHHH EHH HHH 

1787 003470 OO00004 éT11: SCOPE 

1788 003472 012767 O00010 175460 MOV 810, STIMES ; 300 79 TERATIONS 

1789 003500 012767 000011 175472 MOV #11; sSTESTH get EST T NUMBER IN APT MAIL BOX 

1 e iF’ tT Is LEAR 

1791 003506 

1732 003506 012767 003514 175374 MOV wi. orn 

1704 003514 IF @RCVRIE SETIN ORCSR THEN 
1736 003514 932777 000100 175536 BIT BRCVRIE,, ARCSR 

ies ; RCVRIE DID NOT RESET JN RCSR 
1798 003524 ERRHRD 29, , DIDNOT 

1799 003524 104035 ERROR 29 need 

{Bor poaeoe $37: 

180 003526 ENDSUB 

1804 ; TRY TO SET RCVRIE BIT 

1 003526 BGNS' 

1806 003526 012767 003534 175354 MOV #64S, SLPERR 

1807 003534 LET | @RCSR := ORCSR SET.BY SRCVRIE 
1808 052777 000100 175516 BIS #RCVRIE, ARCSR oer ee 

1810 oo03s42 IF #RCVRIE NOTSETIN ORCSR THEN 
1811 003542 032777 000100 175510 BIT #RCVRIE, IRCSR 

1812 003550 001001 BNE $40 

1813 RCVRIE DID NOT SET IN RCSR 
1814 003552 tr RRHRD 30, , 

1815 003552 104036 ERROR 30 

1816 003554 ENDIF 

1817 003554 $40: 

1818 003554 ENDSUB 

1820 ; TRY TO CLEAR A SET BIT 

1821 003554 BGNSUB 

Bee 003554 012767 003562 175326 MOV #864S, SLPERR 

1824 003562 LET  @RCSR := ORCSR CLR.BY #RCVRIE 
1825 003562 042777 000100 175470 BIC #RCVRIE, JRCSR 

1826 ; SHOULD HAVE CLEARED 

1827 003570 IF #RCVRIE SETIN @RCSR THEN 
1828 003570 032777 000100 175462 BIT #RCVRIE, ARCSR 

1829 003576 091401 BEQ $41 

1830 RCVRIE DID NOT CLEAR IN RCSR 
1831 ERRHRO 31, ,DIDNOT 

1832 104037 ERROR 31 

1833 ENDIF 

1834 003602 $41: 

1835 003602 ENDSUB 


GO4 
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1837 ; NOW SEE IF RESET CLEARS IT 

1838 003602 BGNSUB 

1839 003602 012767 003610 175300 MOV #64S, SLPERR 

1841 003610 LET | @RCSR := ORCSR SET.BY #RCVRIE 

1842 003610 0S2777 000100 175442 BIS #RCVRIE, ARCSR 

1843 - a iy 1 SSUE BUS RESET 

ive posete ooo00s RESET 

1846 003620 IF #RCVRIE SETIN ORCSR THEN 

184 900100 175432 BIT #RCVRIE, IRCSR 

1848 003626 001401 BEQ $42 

1849 - RCVRIE DID NOT RESET IN RCSR 

18S0 003630 ERRHRD 32, ,DIDNOT 

1851 003630 104040 ERROR 32 

1852 003632 ENDIF 

1853 00363e $42: 

1854 003632 CKLOOP 

1855 003632 ENDSUB 

003632 


ENDTST 
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LETHE FOLLOWING 4 TESTS VERITY ee guy ers, 


y THAT RESET Nutr) J ENTIAL Lees READ ONLY BITS. 

i erererertrertrrriertrertrterrtt reer etter ttre 
a HEHHHHHHEHHHHHHHHHHBHHHHHHHHBHHHHHHHHHSHHEBHE HEEB HBB BE 
TEST 12 TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 
ae ee ee ee ee 
003632 Oo00004 ure : 


003642 Bi59e7 SooOLe ee roy 113 Siders +e ET NUMBER R IN APT MAIL BOX 


fo ee ee en ee oe 
me 


SLSR RRRRERE 


003650 BGNSUB 
003650 012767 003656 175232 MOV #64S, SLPERR 
003656 IF #RCVRDONE SETIN @RCSR THEN 


003656 032777 O00200 175374 BIT #RCVRDONE, IRCSR 
003664 001402 BEQ $43 
;RCVRDONE SHOULD HAVE CLEARED BY INIT 
RCVRDONE DID NOT CLEAR IN RCSR 
003666 ERRHRD 33,HRESET, DIDNOT 


ERROR 33 
“REISSUE RESET 
003670 BRESET 

003670 ooj000S RESET 

003672 ENDIF 


003672 y $43: 
T" | oe LOOPING AFTER ERROR 


003672 C 
003672 ENDSUB 
003672 ENOTST 


SPEER ERT Ltt bi it RERERRR 
@ 
2 


T04 
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1898 5, BE AE SEE SEE SE 4 SE ab a a a a a a a a a aaa a a 

1g 3S : | EP MeEMeORaE EEE EEEHEEOE HEHE EENEEEEEEEEOEEELEESELEEEEEH EEE 

130¢ LETE TEST THAT XMITRDY - TCSR 7 - IS SET BY INIT 

1901 a A RN il 

1303 ieee Oierer 900010 175256 tBr13: Boye #10, STIMES 10 ITERATIONS 

13 12767 viet 175270 MOV tis Stecth $500, Peat NUMBER IN APT MAIL BOX 

1906 

1907 

1908 

1909 003710 BGNSUB 

1910 003710 012767 003716 175172 MOV #64S, SLPERR 

191g 903716 IF #XMITRDY NOTSETIN JTCSR THEN 

191 16 032777 000200 175340 BIT #XMITRDY, aTCSR 

1914 003724 001002 BNE $44 

1916 ;RESET SHOULD T BIT. 

1917 ieee ROY DID NOT Sete IN TCSR (AFTER RESE 

1918 ERRHRD 34, HRESET, DIDNOT 

1919 003726 104042 ERROR 34 

1920 - ISSUE ANOTHER RESET 

1921 003730 BRESET 

1922 003730 oo000s RESET 

1923 003732 ENDIF 

1924 003732 $44: 

1925 “ALLOW LOOPING ON ERROR 

1926 003732 CKLOOP 

1927 003732 ENDSUB 

1928 003732 ENDTST 

1923 

1g3y 


JO4 
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1932 5, Me SE SESE AE SE SE SE a Sg a a a a a aa a a a a a 

1 STUPTTTTITITITITITIT TT TTT TTT TT TTT TTI Titi iti ti titi titi itt titty 

1 He 14 TEST THAT DATAINT - RCSR 15 - IS CLEARED BY INIT. 

1935 nar lees eaauanaas oni enti ber raapame aN Rot Nyt 

123 Be3535 stage 000010 175216 ” Boe #10, STIMES ;;D0 10 ITERATIONS 

1338 003742 012767 000014 175230 MOV #14; STESTN ::SET TEST NUMBER IN APT MAIL BOX 

1940 

1941 

1942 

ton rest 012767 003756 175132 MOV #64S, SLPERR — 

1945 Sree : IF SOATAINT SETIN JRCSR THEN 

1 003756 032777 100000 175274 BIT #DATAINT, IRCSR 

194? 003764 001402 BEQ $45 

133 003766 ERRHRD 3S, HRESET, DIDNOT 

1950 003766 104043 ERROR 35 

195¢ s TESTING EFFECT OF RESET ON BIT 

1954 sDATAINT DID NOT CLEAR IN RCSR 

1955 “ALLOW A FRESH START 

1ge9 ret po0005 RESET BRESET 

1958 oOa555 ENDIF 

1959 0032772 $4S: 

190 003772 CKLOOP 

191 003772 ENDSUB 

1%2 002772 ENDTST 

1963 

1964 

1965 


—— « : — Se rr ee ee eee + —<-— o- +--+ - 


04 
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138 38 HHEYERSAF RES SESESE RK KAP SBEAE SAREE RELEMERSSESREL AA EERE RERE ELEY 
1% 3 HRESAERRSRERRREH  BYREXEESESE SSE ESE RALERLEPE ESSERE PEERS EREAERE EES 
1968 TEST 15 TEST THAT RCVRACT - RCSR li - 1 INIT 
1 © LERSERESEERREESRSRS SERRE ES ERSA SRE RERERR EERE RRR RERA RRR REESE 
1971 vied Te? 000010 175156 tetas: aoe #10, STIMES DO 10 ITERATIONS 
1972 oo4002 012767 000015 175170 MOV to’ SteSTR +: SET oe NUMBER IN APT MAIL BOX 
1974 
1975 004010 IF SCABLE NOTSETIN SUSWR THEN - 
1976 OO4010 032767 O20000 175202 BIT #CABLE , SUSWR 
1977 OO4016 001004 BNE S46 
1978 ; CAN'T TEST WITHOUT BERG OR H31S. 
1 a0 ey 7 000001 175132 MOV #1. S$TIMES — we 

et i | 
ey HOYOSe che BR retie :::EXIT THIS TEST 
1982 004030 ENDIF 
1983 004030 S46: 
1984 
1985 
19% 
1987 go4030 BGNSUB 
1988 012767 004036 175052 MOV #64S, SLPERR 
1990 004036 IF #RCVRACT SETIN JRCSR THEN 
1991 032777 OO4000 175214 BIT SRCVRACT, RCSR 
1992 OO4044 001402 BEQ 47 
1994 -RESET SHOULD HAVE CLEARED RCVRACT 
1995 OO404 ERRHRD 36, HRESET, DIDNOT 
19% OO4O46 104044 ERROR 36 
1998 TESTING EFFECT OF RESET ON BIT 
e000 ;RCVRACT DID NOT CLEAR IN RCSR 
2one “ALLOW ANOTHER TRY 
2003 O040S0 BRESET 
som 004050 oo0c00s RESET 

004052 ENDIF 
2006 004052 $47: 
2007 “ALLOW LOOPING ON ERROR 
see Sees gg. 

NOSUB 
0040S2 ENDTST 


8 


ce 


ee - em ee ee 


MAINDEC-11-DVDVA-A MACY11 27(1006) mtd 10:36 PAGE Se 
DVDVAA.P11 O6-NAY-77 15:29 T15 TEST THAT RCVRACT - RCSR 11 - 15 CLEARED BY INIT SE@ 0050 


20le + EEXRERAEURPSSLERRSHEERLARASEKSSRA RA RARERKELSERE SAS LHP TEER EERERE 
2013 THE FOLLOWING 4 TESTS VERIFY 
2014 tt THAT EIA SI can TRANSMITTED 
ols is AND RECEI 
16 _frorehebrentrecte te ate tnt teat mt tte 
2017 : . STeTTTTTrrr TT TT eeeteeNT COMET GIS MO Cae 
e018 sRTEST 16 alest T 
e020 } jit "wy °c" aaggpepmoern erro Ra ReRMRaS Serer es 
sos} Sages 12767 000010 175076 #10, STIMES $00, 10 ITERATIONS 
2023 004062 012767 000016 175110 MOV $16" STESTN :SET TEST NUMBER IN APT MAIL BOX ” 
EE coor RRL Rohe Ti MEP 
2026 004070 032767. o20000 175122 eI SCABLE, SUSHR 
sen _e ;_CAN’T TEST WITHOUT BERG OR H315S. 
004100 EXIT’ TST 
2030 004100 012767 O00001 175052 MOV #1, STIMES 
e031 001108 000441 BR TSti7, :3;EXIT THIS TEST 
11 ENDIF 
2033 004110 $50: 
2034 
2035 ; DTR AND 
2036 : CARDET ARE CONNECTED 
2038 ; BY THE H31S OR EQUIV. 
2039 
2040 ; CLEAR 
2041 004110 BGNSUB 
eove 004110 012767 004116 174772 MOV #64S, SLPERR 
eo44 ; CLEAR DTR 
so 004116 LET ’ @RCSR := ORCSR CLR.BY #OTR 
004116 042777 o00002 175134 BIC #0TR, IRCSR 
2047 ; CARDET SHOULD FOLLOW 
2048 004124 IF SCARDET SETIN ORCSR THEN 
2049 Dov les 032777 010000 175126 BIT &CARDET, IRCSR 
eso 004132 O01401 BEQ $51 
1 CARDET DID NOT 
2052 004134 ERRHRD 37, , FORCE 
2053 004134 104045 ERROR 37 
Spee - CLEAR WITH DTR 
2056 004136 ENDIF 
2057 004136 $S1: 
ces 004136 ENDSUB 
; SET 
2061 004136 BGNSUB 
2062 004136 012767 OO4144 174744 MOV #64S, SLPERR 
see ; SET DTR : 
004144 LET ’ @RCSR := ORCSR SET.BY s#OTR 
2066 OO4144 052777 o00002 175106 BIS #OTR, ARCSR 


; CARDET SHOULD FOLLOW 


e 


ee 
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032777 
004160 001001 


004162 104046 


004164 012767 
004172 042777 


032777 
004206 001401 


004210 104047 


PREC EEREREL CEL Littl RE REA ERIS 
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010000 175100 


004172 174716 


ooo0de 175060 


010000 1750Se 


$Se: 


$S3: 


eee ee ee 


MO4 


eee Ee Gee ee ee ee ee ese - 0 ee + eee e+ 


IF SCARDET NOTSETIN @RCSR THEN 


- CARDET DID NOT SET 
ERRHRD 38, , FORCE 


- WITH DTR 
ENDIF 
ENDSUB 
BGNSUB 
; CLEAR OTR 


LET ’ ORCSR := ARCSR CLR.BY #OTR 
T D FOLLOW 
ir * “SCARDET SETIN SRCSR THEN 


- CARDET DID NOT 
ERRHRD 39, ,FORCE 


77 10:36 PAGE $3 
TEST THAT CARDET SETS AND CLEARS 
BIT #CARDET , ARCSR 
BNE $Se 
ERROR 38 

; CLEAR 
MOV #64S , SLPERR 
BIC #OTR,@RCSR 
BIT SCARDET, IRCSR 
BEQ $53 
ERROR 39 


: CLEAR WITH DTR 
ENDIF 


ENDSUB 


ENDTST 


SEQ 0051 
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000001 


012767 


012767 


rorvrurorerurorurornorororuroroforofururonorororururufopororfoporurururufoforurerpofurorururoforurorrurforu furore 
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MACY11 27(1006) 


174632 


174774 


174766 


174604 


174746 


174740 


—_— errr ew ee ee ees + 


NOY 
\e-MAY-77 10:36 
16 SEQ 00s2 


PAGE S4 
TEST THAT CARDET SETS AND CLEARS 


HE 3d bb d badel bel shehahebshebeheieheisheicheieheiehebeiohedeiebeheiehehchehebedehedciedchebobsbehebchbehehehebehebehohe 
| SEPHREHROEAEHHEEEEHHEREELEEEOEAOEEOEAOEEOLEOEEEEEOEEEEREEO EOD 


KTEST 17 est I HAT ¢ RSEND 
oe |. penne pam 
MOV TIMES :00 10 ITERATIONS 
MOV #1 Heat tai $500, Feb AUMBCR IN APT FT NAIL 80 BOX 
HE WRAPAROUND? ? 
IF ichete nN NOTSETIN SUSWR THEN 
BIT 8CABLE, SUSWR 
BNE ss4 
: CAN'T TEST WITHOUT BERG OR H31S. 
EXIT’ TST 
MOV #1, $TIMES 
SR TSt20 :;;EXIT THIS TEST 
ENDIF 
$S4: 
; DTR AND 
 CLRSEND ARE CONNECTED 
; BY THE H31S OR EQUIV. 
“ ; CLEAR 
BGNSUB 
MOV #64S, SLPERR 
; CLEAR DTR 
LET " @ORCSR := ORCSR CLR.BY sOTR 
BIC #OTR, IRCSR 
; CLRSEND SHOULD FOLLOW 
IF SCLRSEND SETIN JRCSR THEN 
BIT 8CLRSEND, RCSR 
BEQ $55 : 
, ; CLRSEND DID NOT 
ERRHRD 40, , FORCE 
ERROR 40 
- CLEAR WITH DTR 
ENDIF 
SSS: 
ENDSUB 
; SET 
BGNSUB 
MOV #64S, SLPERR ; 
; SET DIR 
T SE ceR := ORCSR SET.BY s#DTR 
BIS #OTR,@RCSR * "4 it to 
CE RSEND ROTSETINORCSR. THEN 
Bt geen 


; CLRSEND DID NOT SET 





a a ee a ee ee - ee ee me Cee ee eee 


BOS 


NRE Cat Ove A av-77 Mecag! 2701006) 1g -MAY-77 of taBr CCRSERD SETS AND CLEARS 


2160 ERRHRD 41, , FORCE 
5161 Oeaee | 104051 ERROR YJ 

163 - WITH OTR 

He oouses - ENDIF 

166 Sao : ENDSUB 

2167 

5 tee gouge sheape: BGNSUB 

gi70 004324 012767 004332 174SS6 MOV #648, SLPERR 

2172 : CLEAR OTR 

5t3a BOMSSS 042777 000002 174720 BIC —-#DTR, ARCSR oe Son ae eee nee 
site arn ; CLRSEND SHOULD FOLLOW 
e176 Oo1a40 IF SCLRSEND SETIN ORCSR THEN 
1 032777 O29000 174712 BIT SCLRSEND, ARCSR 

2178 OO434% 00140! BEQ $57 

2179 - CLRSEND DID NOT 

2180 004350 ERRYRD 42, , FORCE 

2181 004350 1040S2 ERROR 42 

2183 CLEAR WITH DTR 

2184 O0043S2 ENDIF 

2185 004352 $57: 

2186 004352 E 

2187 004352 ENDTST 

2188 

2189 

2190 

2191 


SEQ 0053 
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Bte7e? 


012767 


032767 
001004 


012767 
000441 


012767 
042777 


032777 
001401 


104053 


012767 


004416 


p04444 
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174472 


174634 


174626 


174444 


174606 


174600 


16-MAY-77 10:36 PAGE 
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me | ee ee ee ee 


COS 


SETS AND CLEARS 


Se EE SE EAE ME a a a a SS a 0 i i a a a a a a a a a a aE 


STUTTTETITTTTTTTT TT rrr TTT SERKRAAKRRSSAERSRERERESRERRRERRESERES 
ines 20 TEST THAT RING ooh S AND 
+ AS REQSEND S 
+ + SESSESKERSSSSSSSKESSSSSSSSSRARAASSSSSSESSRRSRARSSRAERRE REARS SE 
t$T20: SCOPE 
MOV #10, STINES ;:D0_ 10 ITERATIONS 
MOV #20; STES ::SET TEST NUMBER IN of MAIL BOX 
We USE THE WRAPAROUND? ? 
IF ichere NOTSETIN SUSWR THEN 
BIT #CABLE , SUSWR 
BNE $60 
: CAN’T TEST WITHOUT BERG OR H31S. 
EXIT’ TST 
MOV #1. STIMES 
BR TSt21 :s;EXIT THIS TEST 
ENDIF 
$60: 
; REQSEND AND 
: RING ARE CONNECTED 
; BY THE H315 OR EQUIV. 
; CLEAR 
BGNSUB 
MOV #64S, SLPERR 
; CLEAR REQSEND 
LET ’ @RCSR := aRCSR CLR.BY sREQSEND 
BIC #REQSEND, JRCSR 
; RING SHOULD FOLLOW 
IF #RING SETIN aJRCSR THEN 
BIT #RING, ARCSR 
BEQ $61 
- RING DID NOT 
ERRHRD 43, ,FORCE 
ERROR 43 
- CLEAR WITH REQSEND 
ENDIF 
$61: 
ENDSUB 
; SET 
BGNSUB 
MOV #864S, SLPERR 
; SET REQSEND 
LET ' ORCSR := JRCSR SET.BY #REQSEND 
BIS #REQSEND, RCSR 
; RING SHOULD FOLLOW 
IF #RING NOTSETIN @RCSR THEN 
BIT #RING, ARCSR 
BNE $62 


; RING DID NOT SET 


SEQ 00S4 
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2248 004462 ERRHRD 44, , FORCE 
2249 004462 104054 ERROR 44 
258) - WITH REQSEND 
004464 ENDIF 
2253 O04464 $62: 
gg54 OO4464 ENDSUB 
se a 
004464 BGNSUB 
2258 OO4464 012767 004472 174416 MOV #64S, SLPERR 
55P5 ; CLEAR REQSEND 
2261 O04472 LET ' @RCSR := ORCSR CLR.BY sREQSEND 
2262 OO4472 042777 OO0004 174560 BIC #REQSEND. ARCSR 
2263 ; RING SHOULD FOLLOW 
2264 O04S00 IF #RING SETIN @RCSR THEN 
2265 004500 032777 O40000 174552 BIT #RING, ARCSR 
2266 O04S06 001401 BEQ $63 
2267 RING DID NOT 
2268 004510 ERRHRD 45, , FORCE 
eob8 004510 1040SS ERROR 45 
2271 - CLEAR WITH REQSEND 
2272 O04512 ENDIF 
2273 004512 $63: 
2274 O045le ENDSUB 
2275 O04Sle ENDTST 
2276 
2277 
2278 
2279 


i ee 
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5, Mee SE AE SE SE AE gb a a a a a a a a a a a a aaa a 


; #TEST 


téT21 


$6S: 


21 


BS 
< 


BIT 
BEQ 


ERROR 


MOV 


a 


jane eae cee nee EEEeENE Hanae Ra EEEHTEEEETEEEHoeE 


TEST THAT 
te AS  SECXMIT T 
TO UN eee ae ia Gece: STS 
#10, » STINES D0 19 ITERATIONS 
#21’ STESTN I CET EST NUMBER IN APT NAIL BOX fe 
IF BCABLE NOTSETIN SUSWR THEN 
ECABLE, SUSUR 
CAN’T TEST WITHOUT BERG OR H31S. 
EXIT’ TST 
#1, STIMES 
TSt2e2 :;;EXIT THIS TEST 
ENDIF 
; SECXMIT AND 
: SECREC ARE CONNECTED 
; BY THE H315 OR EQUIV. 
; CLEAR 
BGNSUB 
#64S, SLPERR 
; CLEAR SECXMIT 
LET ° @ORCSR := ARCSR CLR.BY sSECXMIT 


#SECXMIT,@RCSR 
; SECREC SHOULD FOLLOW 
IF SSECREC SETIN JRCSR THEN 
+ macau 


SECREC DID NOT 
ERRHRO 46, , FORCE 


46 
» CLEAR WITH SECXMIT 
ENDIF 
ENDSUB 
; SET 
BGNSUB 
#64S, SLPERR 
; SET SECXMIT 
LET SR := ORCSR SET.BY s#SECXMIT 


#SECXMIT, JRCSR 
; SECREC SHOULD *OLLOW 
IF #SECREC NOTSETIN @RCSR THEN 
5 aaah 


; SECREC DIG NOT SET 


SEG O0SE 


ce ee SS SSD 
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ERROR 47 
$66: 
; CLEAR 
OO4632 174256 MOV #64$ , SLPERR 
000010 174420 BIC sSECXMIT, @RCSR 
002000 174412 BIT #SECREC, JRCSR 
BEQ $67 
ERROR 48 
$67: 


PAGE S9 
TEST THAT SECREC SETS AND CLEARS 


SEG 0057 
ERRHRD 47, ,FORCE 


WITH SECXMIT 


EnoIt 
ENDSUB 
BGNSUB 
; CLEAR SECXNIT 
LET ’ ORCSR := aRCSR CLR.BY sSECXMIT 


; SECREC SHOULD FOLLOW 
IF SSECREC SETIN SRSA THEN 


SECREC DID NOT 
ERRHRO 48, , FORCE 


- CLEAR WITH SECXMIT 
ENDIF 


ENDSUB 


ENDTST 


GOS 


Re 
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2368 See AE SE EE aE SE gE a SE a a aE 

653 PPTTTTTITITITITITIT TTT TTT TTT TT TT TTT TT TT TTT TI TT TIT iti ttt ttt Ty 

if TEST THAT 1 DATAINT (RCSR~18) SETS 

537) Teint S CLERED AFTER R READ 

5375 i "He ee aN 4 SET EO ET BNO eRe E NS “By THE H315 

2374 Se } gt geapamanee arson meer 

oe 54 012767 OO0010 174276 MOV #10, STINES :1D0, 10 ITERATIONS 

2377 012767 O00022 174310 MOV 822, STESTN ;SET TEST NUMBER IN APT MAIL BOX pc 
te 004670 IF ichBLe We OHeETING SUSHR Herr THEN EN. 
2380 OO4670 032767 O20000 174322 BIT 8CABLE, SUSWR 

2381 004676 001004 BNE $70 

2382 - CAN’T TEST WITHOUT BERG OR H315S. 
2383 004700 EXIT’ TST 

2384 OO4700 012767 000001 174252 MOV #1, $TIMES 

2385 004706 000463 BR TSt23 ::;EXIT THIS TEST 

238 004710 ENDIF 

2387 004710 $70: 

2390 004710 012746 000340 MOV #PR7,-(SP) :PUT NEW PS on STACK a ee eee se 
2391 004714 012746 004722 MOV #64S;-(5P) :tPU 1 eH Pe STACK 

2392 004720 o0000e2 RTI t PS 

2333 004722 64S: 

2395 :READ TWICE - CLEARS 

23% 004722 GNSUB 

2397 OO4722 012767 004730 174160 MOV #655, SLPERR eae oe 

538 004730 LET " @RCSR := ORCSR CLR.BY sDTR 
2400 004730 042777 O00002 174322 BIC #DTR, ARCSR 

2401 ;WAIT 10 MICRO-SEC FOR CABLE 
2402 004736 a WwAITUS 

Son ares eats 000010 NOY ui, (FRe) 

240S OO4744 004767 904544 JSR C WAIT 

2406 004750 012605 MOV (Spe, RS 

2407 ; READ RCSR - TO CLEAR DATAINT 
2408 004752 LET " R3 := aRCSR 

2409 004752 017703 174302 MOV JRCSR,R3 

2410 ; READ RCSR AGAIN 

2411 004756 IF #DATAINT SETIN ORCSR THEN 
2412 004756 032777 100000 174274 BIT SDATAINT, IRCSR 

2413 004764 001401 BEQ $71 

2414 READING RCSR d10 NOT CLEAR DATAINT 
sate Fee 104061 ERROR 49 tr a 

2417 Ood79 ENDIF 

e418 004770 $71: 

eHe0 004770 ENDSUB 

24 

os 


; OTR SETTING SETS DATAINT 
e BGNSUB 
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o000de 
100000 


100000 


ooo0de 
100000 


aoe ee + ee eo ee 
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1742S4 
174246 
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1740S2 


174214 
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HOS 


16-MAY-77 10:36 6 
Tze test THAT DASA (RCSR-15) SETS 
MOV #64S, SLPERR 
;SET DTR 
LET ’ @RCSR := ORCSR SET.BY #0TR 
BIS #DTR, IRCSR . 
IF #DATAINT NOTSETIN ORCSR THEN 
BIT SDATAINT, IRCSR 
ae: vies SETTING DTR DID NOT SET DATAINT 
ERRHRD SO,, ebdara 
ERROR SO 
ENDIF 
$72: 
IF #DATAINT SETIN ORCSR THEN 
BIT 8DATAINT, ARCSR 
BEQ $73 
“READING RCSR DID NOT CLEAR DATAINT 
ERRHRD 51,EDATAINT 
ERROR 51 
ENDIF 
$73: 
ENDSUB 
; DTR CLEARING SETS DATAINT 
MOV #64S, SLPERR 
:CLEAR DTR 
LET ' @RCSR := ORCSR CLR.BY #OTR 
BIC #DTR, ARCSR 
IF #DATAINT NOTSETIN AORCSR THEN 
BIT sDATAINT, ARCSR 
BNE $74 
“CLEARING DTR DID NOT SET DATAINT 
ERRHRD Se, ,E2DATA 
ERROR Se 
ENDIF 
$74: 
ENDSUB 


ENDTST 


SEG 0059 


- ee a es oe ee | - —--« - -<=- 
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5, Be AE SE A SE SE SE a gE a A a a a a a a a a a a aE 
jSHLEDSREEEEROOOEERESEEOROOUETELOSESSESESESSSSSSOESHESAEERS0000 


t ATEST 22 TEST I THAT T DATAINT SE SETS. 
AND T NT DOES T WHEN RING CLEARS 
jggpreggggeeeterbtensaoesatesnetnenrisninannatees 
ie ¢ 000010 174072 MOV #10, STIMES :D0 10 ITERATIONS 
012767 000023 174104 MOV 823; STESTN i tceT TEST NUMBER IN APT NAIL BOX a 
If °  &CABLE NOTSETIN SUSWR THEN 
032767 O20000 174116 BIT #CABLE, SUSWR 
001004 BNE $75 
; CAN’T TEST WITHOUT BERG OR H31S. 
EXIT’ TST 
012767 000001 174046 MOV #1. STIMES 
BR TSt24 +;;EXIT THIS TEST 
ENDIF 
$75: 
INTERRUPTS 
012746 000340 MOV #PR7,-(SP) s PUT NEW PS ON iRf 
012746 005126 MOV #64$, -(5P) T NEW PC ON STACK 
ooooge2 RTI + BOP NEW PC AND PS 
64S: 
;START OFF WITH EVERYTHING CLEAR 
BGNSUB 
012767 005134 173754 MOV 865S, SLPERR 
;CLEAR RING 
LET ' @RCSR := ORCSR CLR.BY #REQSEND 
042777 000004 174116 BIC #REQSEND, ARCSR 
“WAIT 10 MICRO-SEC FOR CABLE 
wAITUS 10 
010546 MOV RS, -(SP) 
012745 000010 MOV #10, -(RS) 
004767 004340 ISR PC WAIT 
012605 / MOV (SP), RS 
;READ ONCE 
LET ' R3:= aORCSR 
017703 174076 MOV JRCSR,R3 
;READ TWICE 
IF #DATAINT SETIN ORCSR THEN 
100000 174070 BIT SDATAINT, IRCSR 
001401 BEQ $76 
-READING RCSR DID NOT CLEAR DATAINT 
ERRHRD S3, EDATAINT 
104065 ERROR 53 
ENDIF 
$76: 
ENDSUB 
; SET RING --> SET DATAINT 
BGNSUB 
012767 O0S202 173706 MOV #64S, SLPERR 


rc a ee ee ee ee eee + ++. 


JOS 
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goed ze ORE alae RING 
2526 LET  @RCSR := @RCSR SET.BY sREQSEND 
gee? ppesns 052777 000004 174050 BIS #REQSEND, IRCSR 
;HAIT 10 MICRO-SEC FOR CABLE 
Bo BEI a ey Re — 
1 1 pee 000010 MOV #10, -(RS) 
2532 005216 004767 004272 JSR PC, WAIT 
Spesee MOV (SP)+,RS 
005224 IF #DATAINT NOTSETIN @RCSR THEN 
Gosces 174026 BIT SDATAINT, ARCSR 
BNE $77 
TTING RING DID. NOT SET DATAINT 
é 82,, E2DATA 
ERROR 62 
ENDIF 
$77: 
ENDSUB 
;CLEAR RING CAUSES NO, CHANGE IN DATAINT (CLEAR) 
173644 MOV #64S, SLPERR = 
;CLEAR_RING 
LET " @RCSR := ORCSR CLR.BY #REQSEND 
174006 BIC #REQSEND, JRCSR 
jHAIT 10 MICRO-SEC FOR CABLE 
WAITUS 
MOV 
MOV ni, (Fe) 
JSR PC WAIT 
MOV (SP)+, RS 
IF #DATAINT SETIN ORCSR THEN 
173764 BIT SDATAINT, ARCSR 
BEQ $100 
“CLEARING RING SET DATAINT 
ERRHRD 83, CLRRNG 
ERROR 83 
ENDIF 
$100: 


Re -SKIP AROUND NESSAGE 
ae TST24 ssEMIT HIS test 
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000010 
173674 


005372 


000010 


000010 


004102 


100000 


7 
173668 
173672 


173622 


173700 


173516 


173660 


173636 


16-MAY-77 10; 64 ( 
Te3 TES tHaT BATAINT SETS WHEN RING SETS 


PET ii.3.5.8.Lotsdolohohababololoheheledeloioteheieieleteleieieiehehebeieieiehelcieieishehebobebeichebeboiohehobohbehohehoie 
72 JHEHEHHEHHEHEHEHHHHHHIHHHH}HHHiHE HEHEHE 
; RTES TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE 
Pe ncaa" ~ joe nace vee eanmce eer mam etc rt. 


tite S 10 ITERAT 
roy oe es So IN APT MAIL BOX 
CAN USE HE WRAPAROUND ?? 
IF BCABLE NOTSETIN SUSWR THEN 
BIT SCABLE, SUSWR 
BNE $101 
»* i gQN'T TEST WITHOUT BERG OR H315. 
MOV #1, STIMES 
BR TSt2s :s:EXIT THIS TEST 
ENDIF 
$101: 
=NO INTERRUPTS 
MOV #PR7, -(SP) :sPUT NEW PS ON STACK 
MOV #64’ -(SP) PUT NEW PC ON STACK 
RTI : ;;POP NEW PC AND PS 
64S: 
START FRESH 
;CLEAR SECREC 
LET SRCSR := @RCSR CLR.BY #SECXMIT 
BIC #SECXMIT, IRCSR 
LET R3 := ORCSR 
MOV JRCSR, RB 
sSET SECREC --> DATAINT SET 
BGNSUB 
MOV #65S, SLPERR 
;SET SECREC 
JRCSR := ORCSR SET.BY #SECXMIT 
BIS #SECXMIT, ARCSR 
jMAIT 10 MICRO-SEC FOR CABLE 
WAITUS 
MOV RS, -(SP) 
MOV #10, -(RS) 
JSR PC, WAIT 
MOV (Spy RS 
IF #DATAINT NOTSETIN @RCSR THEN 
BIT #DATAINT, IRCSR , 
te ae TTING SECREC DID NOT SET DATAINT 
’ bperys 84, EES Ata 
ERROR 84 
ENDIF 
$102: 
ENDSUB 


;CLEAR SECREC --> DATAINT SET 


SEG 0062 


appepoapnonER 2: 


SaREORE 


ROR 
tant eT 





——_— - ae we wee ee a ee ee eee we 


ee ee ee ee | + ee oe 


LOS 
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Boeuse tee 
012767 OOS434 173454 MOV 8641S, SLPERR 
;CLEAR SECREC 
psa LET ' @RCSR := ORCSR CLR.BY sSECXMIT 
042777 000010 177616 BIC #SECXMIT, ARCSR 
“WAIT 10 MICRO-SEC FOR CABLE 
oos442 wAITUS 10 
010546 : HOV RS, (SP) 
bore? artic Wen BA WAIT 
12605 MOV (SP)+,RS 
; IF SDATAINT NOTSETIN @RCSR THEN 
& 032777 100000 173574 BIT SDATAINT, IRCSR 
005464 091001 BNE $103 
“CLEARING SECREC DID NOT SET DOTAINT 
O0S466 ERRHRD 85,, E2DATA 
O0S465 104125 ERROR 8S 
005470 ENDIF 
005470 $103: 
a enor 


a rr RO ee ee ee + 


ak ett enol MACY11 27(1006) 16-MAY-77 10:36 PAGE 66 
DVDVAA .P O6-NAY-77 15:29 Te4 TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE SEQ 0064 


26S2 [pte siqt teeter eaneptar tami senate bate tty et St 
2653 1 JEHHEHEEHEHHEHHEHHHHE en? cee 
oe ee ae Gash le 
3% seis a THIN’ RERSONAELE A REASONABLE AMOUNT OF TI 
eee 1 ltl SE ES 3 A A a a a a a 
poea7e Breve? 000010 173460 "MOV #10, STIMES ;00 10 ITERATIONS 
2660 005500 012767 O000eS 173472 MOV #25, STESTN ‘SET TEST NUMBER IN APT MAIL BOX 
sees 00SS06 BGNSUB 
2663 005506 012767 005514 173374 MOV #64S , SLPERR 
2664 ; LOAD TBUF WITH ONE CHARACTER 
seep ; WAIT ty READY 19 set 
; (SHOULD BE T 
2667 ; SINCE UART DOUBLE BUFFERS ITS INPUT) 
2669 : A_CHARACTER 
2670 005514 LET 3 :B= 80 
2671 005514 105077 173550 CLRB dTBUF 
267e ;WAIT A MAXIMUM 


5 OF oS MSEC FOR 
;XMIT RDY TO SET IN TCSR 
CALL’ TIMER IN <#5, 8XMITRDY, TCSR, 8SET> 


sa 
PC TIRER 





(SP)+,RS 
; TIMER RETURNS AN ERROR IF BIT DID 
NOT MEET CONDITION WITHIN TIME LIMIT 
IF. EANOR 
BCC $104 
-XMIT RDY DID NOT SET IN TCSR 
ERRHRD 54, , DIDNOT 
ERROR SY 
ENDIF 
$104: 
ENDSUB 
BGNSUB 
2695 005554 012767 O0SS62 173326 MOV wens, SLPERR 


su SECRETED AER SEE cs 
a Roses Ler aYBP Bs ao 


10S077 173802 CLRB aTBUF 
OOSS6E 000240 NOP ; GIVE ¢ TIME TO CLEAR 


2703 
a _ROUIRE BB LRNE gyEmED wom 
2707 


005570 IF okt toy SETIN aTCSR THEN 
005570 032777 000200 173466 BIT 8XMITRDY, JTCSR 


ee a ae Se OS ———— 


NOS 
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00SS76 001401 


he 


ae 


2717 
1 


104067 


RRAER 





ae 
wo 





104070 


a 


SRS SIOAOATSNSS 


' 


$105: 


$106: 


BEQ $105 


ERROR 5S 


3 
B 
8 


JSR PC TIMER 
MOV (SP)+, RS 
BCC $106 
ERROR 5S6 


E 
ENOTST 


eee ee eee ee wee oe e+ 


XMITROY DID NOT CLEAR IN TCSR 
ERRHRO SS, , DIDNOT 


ENDIF 


sWBIT A Bex! 


‘XMIT ROY TO SET IN TCSR 
CALL’ TIMER IN <8S, 8XM TROY. TCSR, 8SET> 


IF.ERROR THEN 


-XMIT RDY DID NOT SET IN TCSR 
ERRHRD 56, , DIDNOT 


ENDIF 


— -—-—— a a ee + a ee Se 
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e738 ; Ree ett ean aetccamingntmmmnir int inet atin 
78 | j seeueneenccenessssany BRRRELESLR LSS Mb HE Hh Hb hh aE 
ite TEST THAT TING A FROM TBUF ait ir MAINT SET) 
£73 # RESULTS TN THING ITHIN A REASONABLE AMOUNT OF TIME 
i 7 ong -o- pameeamacepammmonc ESSASSSELSSRRELELERERELEERERSHESR EES 
1 
at Sees Seat: 000010 173312 #10, STINES ::D0 10 ITERATIONS 
a 00564 012767 00002 173324 MOV 826, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
2745 SET THE MAINTENANCE BIT 
274 005654 LET aTCSh := aTCSR SET.BY SMAINT 
2747 005654 052777 000004 173402 BIS SMAINT, aTCSR 
os 005662 BGNSUB 
2750 O0S662 012767 005670 173220 MOV #64S, SLPERR 
set : SEND A CHARACTER AND LET IT WRAP AROUND 
2753 005570 LET STBUF :B= 80 
ea 005670 105077 173374 CLRB a TBUF 
2756 ; WAIT A MAXIMUM OF SO MSEC 
2757 FOR RCVR DONE TO SET IN 
2758 RCSR 
2759 005674 iat TIMER IN <#5, SRCVRDONE,RCSR, #SET> 
2760 005674 O10S46 MOV RS, -(SP) 
ee ES MOY RCSR’ CRE} 
2763 pie 000200 MOV BRCVRDONE , -(RS) 
2764 005712 012745 MOV #5, -(RS) 
2765 005716 004767 003314 JSR PC’ TIMER 
e766 012605 MOV (SP)+,RS 
2768 - DIDN’ Te SEI IN TIME 
2769 005724 IF .ERROR T 
2770 005724 103001 BCC $107 
2771 RCVRDONE DID NOT SET IN RCSR 
2772 005726 ERRHRD 57, ,DIDNOT 
2773 005726 104071 ERROR 57 
2774 005730 ENDIF 
2775 005730 $107: 
2776 
2777 005730 ENDSUB 
2778 
2779 005730 BGNSUB 
2780 005730 012767 005736 173152 MOV #645, SLPERR 
2781 : NOW THAT IT IS SET SEE IF IT CAN BE RESET 
2782 : THIS ALSO WILL CLEAR THE MAINT. BIT 
2783 005736 BRESET 
2784 005736 000005 RESET 
oe 005740 IF #RCVRDONE SETIN @RCSR THEN 
2787 005740 032777 000200 173312 BIT #RCVRDONE , IRCSR 
2788 005746 001401 BEQ $110 
2789 RCVRDONE DID NOT RESET IN RCSR. 
2790 005750 ERRHRD 58, ,DIDNOT 
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DVDVAA.P11 O6-MAY-77 15:29 Teb TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) SEQ 0067 


2791 005750 104072 ERROR S8 
00S7Se2 


oa ies 8 
e795 00S7Se 


ENDIF 


ENDSUB 
ENDTST 
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Te 


052777 
012767 


117700 


032777 
001401 


104074 


173260 


173212 


000200 
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173176 
173210 


173266 
173104 


173202 


16-MAY-77 10:36 PAGE 70 
Te6 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


SEE AE AE ES AE Se AE SE a a a a a a a a a a EE 
WETTTIITiTiTittiiiiiiiiit Lit LLL LLL LEE LL LLLP LEeeLii 


tes 


$111: 


$ile: 


BIS 
MOV 


CLRB 


MOVB 


BIT 
BEQ 


ERROR 


DO6 


129’ StECTN 


SMAINT, JTCSR 


#b4S, $l 
; OU 


: T THAT RCVRDONE BY READING RBUF 
Tabteftesgsnsurstnsonnensioonnentatanonnesmasaseoienieat 
"MOV 
MOV 


QO ITERATIONS 
TEST NUMBER IN APT MAIL BOX 


SET MAINT. BIT 


LET aTCSA := aTCSR SET.BY #MAINT 
BGNSUB 


CHARACTER WITH MAINTENANCE 
; SET, AND WAIT FOR XMITRDY TO SET. 


OUTPUT A CHARACTER 
Let ATBUF :B= 80 


aTBUF 
; WAIT MAXIMUM OF SOO MSEC 
j FOR RCVRDONE To SET IN 

dec TIMER IN < #50, 8RCVRDONE , RCSR, #SET> 
RS, -(SP) 
aSET, -(RS) 
RCSR’ -(RS) 
#RCVRDONE , - (RS) 
#50, -(RS) 
PC. TIMER 
(SP)+,R5 

DID IT BECAME READY? 
add IF.ERROR THEN 
-RCVRDONE DID NOT SET IN RCSR 

“ ERRHRD S9,, DIDNOT 

ENDIF 

ENDSUB 
NOW THAT IT IS ST LET LETS SEE IF READING THE 
: BUFFER CLEARS RCVRDONE. 
-READ BUFFER 

LET RO :B= aJRBUF 

JRBUF , RO 


#RCVRDONE , ARCSR 
$ile 


60 


ENDTST 


IF #RCVRDONE SETIN @RCSR THEN 


-RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 60, , DIDNOT 


ENDIF 


SEG 0068 
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104075 
012767 
000441 


000001 


173066 
173100 
173156 
003272 


173126 


003244 


177777 
000122 


000112 


172750 


16-MAY- 
Te? 


77 10:36 PAGE 
TEST THAT RCVROONE IS CLEARED BY READING RBUF 


7 


EQ6 


l 


5 5 REALL AE SLE ESSE SEES E EERE ERE E EEE RRR ER AREA EERE REESE EEE EEE S 
s+ Sead SE SE ab di EME Sb Se SE SE Hb aE SE a SE SE Sa a a a a a a a a HEE 


Ba ear ets Rit 0b" 
ARS WHEN RCVRDONE - 7 - SETS 


$113: 


$114: 


$115: 


$116: 


$117: 


#TEST 30 
re 


MOV 
MOV 


ERROR 


#10,$TIMES ;;D0_10 ITERATIONS 
#30; STESTN ::SET TEST NUMBER IN APT MAIL BOX 
LET JTCSR := ATCSR SET.BY sMAINT 
#MAINT, aTCSR 
LET FLAG :B= sCLR 
#CLR, FLAG 
LET COUNT := 80 
COUNT 
;LOAD A CHARACTER INTO TBUF 
WAIT FOR RCVRACT TO SET 
“SEND A CHARACTER 
LET OTBUF :B= #0 
aTBUF 
REPEAT 
IF #RCVRACT SETIN 3RCSR THEN 
#RCVRACT, IRCSR 
$114 
LET FLAG :B= sSET 
#SET, FLAG 
ELSE 
$115 
LET COUNT := COUNT + a1 
COUNT 
ENDIF 
UNTIL FLAG EQ #SET OR COUNT HI MAX 
FLAG, 8SET 
$116 
COUNT , MAX 
$113 
IF COUNT HI MAX THEN 
COUNT , MAX 
$117 
:IT NEVER SET 
‘RCVRACT DID NOT SET IN RCSR. 
- ERRHRD 61,, DIDNOT 
EXIT TEST 
#1. STIMES 
TSt31 


re te ee 


t$730 


:;;EXIT THIS TEST 
ENDIF 


SEG 0069 
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012767 
000420 


617700 
777 
1401 


104100 


oo4000 § 173040 


000200 173030 


oo4000 = 173020 


000001 172706 


000200 172774 


172766 


000200 172756 


—$$ a Co 
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T30 


$120: 


ERROR 


$123: 
$l2e: 


$le2l: 


ERROR 


$ict: 


MOV 


BIT 
BEG 


ERROR 


ee ee - oe ee + 


06 


10:36 PAGE 72 
TEST THAT RCVRACT - RCSR 11 - SETS 


;CHECK FOR TIMING OF RCVRACT. CLEARING 
;VS RCVRDONE SETTING 


WHILE @#RCVRACT SETIN @RCSR DO 


BRCVRACT, IRCSR 
$121 
IF @RCVRDONE SETIN ORCSR THEN 
a YROONE , RCSR 
IF @RCVRACT SETIN @RCSR THEN 
BRCVRACT, ARCSR 
RC BND RCVRACT 
iBone co SE 
- RRHRD 62, DONEACT 
:NO USE CONTINUING 
EXIT TST 
#1, STIMES 
TSt31 :;;EXIT THIS TEST 
ENDIF 
ENDIF 
ENDODO 
$120 


-RCVRACT = 0 NOW. 
tF sRCVRDONE NOTSETIN QRCSR THEN 


“RC DID NOT SET IN RCSR 
iRENRD Ca, Ot DNOT 


;SET IT BACK. 


#RCVRDONE , ARCSR 
$124 


63 
ENDIF 
: TEST THAT READING THE RECEIVER 

‘BUFFER CLEARS RCVRDONE 


READ CHAR. 
LET RO := QRBUF 


IF @RCVRDONE SETIN QRCSR THEN 


@RBUF , RO 


#RCVRDONE , ARCSR 
$125 


Fhe tla NOT CLEAR IN RCSR 
64, ,OIDNOT 


64 
ENDIF 


SEG 0070 


GO6 
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DVDVAA.P11 O6-MAY-77 15:29 T30 TEST THAT RCVRACT - RCSR i1 - SETS SEG 0071 
sod 006306 $128: 
2966 006306 EXIT 
2%7 006306 raed BR TST31 ;;;EXIT THIS TEST 
2968 006310 MAX : 70000 
2969 O00631e 000000 COUNT: 0 
2971 006314 ENDTST 


Be Aon TERS SS BURA SURE RERSRUMERE RIS sos 


ee 
8 


petetsiseteiiets 
0D NOC W-O 


SRR EON TS 


-Pll 


cnet be baat 
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006340 172550 


172724 
oo00S0 
003136 
172704 
000050 
003116 


172656 


040000 


000001 
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T30 TEST THAT RCVRACT - RCSR 11 - SETS 


Se AE AE AE SE aE A a a a A a a a a a a aaa a a aaa 
HHH HIHHHEHHHEHEHHEHHEHEHHEHHEHE HEHEHE HHH HEHEHE 
ie T 31 TEST THE OVERRUN 14 

jeer neeenenenenenennnaenennenenenenae ene REE ee TE EEE 


+6131 


MOV #10, STIMES ; D0 D0 19 ITERATIONS 
MOV $31" TESTN ::SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
MOV #64S, SLPERR 
tae "DELAYS BE BETHEEN FOR OR RECEPTION. 
ERROR. 
OUTPUT 1 CHARACTER 
Let ATBUF :B= #0 
CLRB = aTBUF 
-GO AWAY FOR SOO M SEC 
WAITUS SO 
MOV RS. -(SP) 
MOV #50, -(RS) 
JSR PC, WAIT 
MOV (SP)+,RS 
- OUTPUT ND CHARACTER 
LET STBUF :B= #0 
CLRB  aTBUF 
“LET OVERRUN HAPPEN 
WAITUS SO 
MOV RS,-(SP) 
MOV #50, -(RS) 
JSR PC WAIT 
MOV (SP)+,RS 
jREAD BUFFER AND ERROR BITS 
LET RY := ORBUF 


IT DIDN’T SET 
IF sdRERR NOTSETIN R4 THEN 


BIT #ORERR, RY 
BNE $126 
-ORERR DID NOT SET IN RBUF 
ERRHRD 65, , DIDNOT 
ERROR 65 
-NO USE COMPOUNDING ERRORS 
txIT TST 
MOV #1, STIMES 
BR TSt32 :;;EXIT THIS TEST 
ENDIF 


$126: 
ENDSUB 


;NOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 


SE@ 0072 


ee 


POLLS EREEERSAE Gc sania uanolu ua Gner eee eee ee cinicterisits 


Pll 


oe ae MACY 1 
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012767 
032704 
001005 


104102 
TA T4 
) 
012767 
777 
1002 


104103 


oo04S4 


012767 


11 


006432 
100000 


000001 


006460 


27( 1006) 


172456 


172510 


172430 


172574 


172406 


172532 


ee a en ee ee 


mee ae 


I06 


PAGE 75 
TEST THE OVERRUN BIT - RBUF 14 


asi 10:36 


$127: 


$130: 


MOV 
BIT 
BNE 


ERROR 
nov 


MOV 


BIT 
BNE 


MOV 


#64S , SLPERR me 
IF #ERROR NOTSETIN R4Y THEN 
#ERROR, R4 
$127 
-ERROR DID NOT SET IN RBUF 
ERRHRO bb, , DIDNOT 
as 
j CHEN ORERR SET. 
T NOW. 
ao areams iS TST 
tar§3 ;;;EXIT THIS TEST 
ENDIF 
ENDSUB 
BGNSUB 
#64S, SLPERR 


:CHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
IF #ORERR NOTSETIN @RBUF THEN 


#ORERR, JRBUF 
$130 
: ARED ORERR. 
a iRBHRD e7TTCLAED 
. a REST OF TEST 
TST32 ;;;EXIT THIS TEST 
ENDIF 
ENOSUB 
BGNSUB 
#64S$, SLPERR 


:NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 


SEND A CHARACTER AROUND. 
LET tae :B= #0 


-LET IT CIRCULATE 
ITUS SO 


aTBUF 


eee 
(Spa +,RS 


( 


IF #ORERR SETIN QRBUF THEN 
ee wer 


ORERR DID NOT CLEAR IN RBUF 
ERRERD 68, ,DIONOT 


SEG 0073 


JO6 
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3085 006532 104104 ERROR 68 
;-AFTER RECEIVING ANOTHER CHAR 
8a RTP AROUND. RECT 
Ey ores 012767 000001 172416 MOV #1, STIMES EXIT TST 
3h eee 000430 BR ¥1,$t +; ;EXIT THIS, TEST 
3093 006544 $131: 
See 006544 IF #ERROR SETIN ORBUF THEN 
30% 006544 032777 100000 172510 BIT #ERROR, JRBUF 
oe _— D NOT CLEAR IN RBUF 
ioe ERRARD B4-, DIDNOT 
3100 ERROR 69 
30 ENDIF 
3183 $132: 
sib NY 
3106 BR TST32 :;;EXIT THIS TEST 
3107 ITCLRED: .ASCIZ /READING RBUF CLEARED Ov 
3109 
3110 
3111 
3112 
3113 EVEN 
3114 ENDTST 
3115 





a a a ce 


KO 
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3116 
117 M6 SE EE ab aE A aE a SE bg i a a a a a a a a a a a a aE 
118 ; Ce eee OT go peemmmennee commmerene res 
il : sree 32 
p | mal 
gigs ti fcoeal 1s dt ee 
3123 * eeuvvurvaveal ieMtHte Ts UES6 THAR PREVEOUS, 
1 RObERY +4732: SCOPE 
1 12767 000010 172324 V #10, STINES 5300, 10 ITERATIONS 
le 006634 012767 000032 172336 MOV #32, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
318 bis 7? 000200 172350 BIT SUSWR ee ee 
t artec BeOS” 
3 Seres 7 000001 172300 V #1, STIMES guiliess 
ai ettay eae Me fhy$! ;;EXIT THIS TEST 
133 006662 ENDIF 
3134 006662 $133: 
3135 
31% LET OLD := 
1 012767 177777 000272 MOV #-1,0LD 
3138 70 LET OLD+2 := #-1 
3139 70 012767 177777 000266 MOV #-1, OLD+2 
3140 006676 LET @TCSR := @TCSR SET.BY sMAINT 
3141 006676 052777 000004 172360 BIS #MAINT, aTCSR 
3142 “EACH BAUD RATE 
143 7 INCR R3 FROM #0 TO #1S. BY #1 
144 005003 CLR R3 
145 706 000401 BR $134 
314% 006710 $135: 
3147 006710 o0S203 INC R3 
3148 00671 $134: 
3148 0067 1¢ 020327 000017 cHP 3,415. 
3151 oe wane LET RO := @RBUF 
3152 006720 017700 172336 MOV SRBUF , RO 
3! CHANGE E 
154 006724 LET :B= Ree tRa) 
3155 006724 116377 007104 172334 MOVB = RATES(R3), aTCSRHI 
317 006732 LET A as := 80 
158 oosoo2 CLR BIT 
3159 ,QUTPUT THE CHARACTER 
3160 90673 LET QTBUF := #0 
316 005077 172330 CLR aTBUF 
1 pINITIALIZE COUNTER 
sib re 005067 000212 CLR NEW LET fel 
te eae LET NEW+2 := #0 
3166 006744 005067 000210 CLR NEW+2 
3167 006750 WHILE BIT EQ #0 DO 
3168 006750 $137: 
3169 750 005702 TST BIT 
3170 752 001014 BNE $140 
3171 754 IF #sRCVRDONE SETIN @RCSR THEN 
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000714 
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000200 172276 


000501 


000150 500152 


000136 000140 
000124 000126 


000110 Oo0011e 
000104 000106 


LOG 


16-MAY-77 10:36 PAGE 78 
T32 PROGRAMMABLE 


$141: 


$l4e: 


$140: 


$143: 


$145: 


$146: 
S144: 


$136: 


Bed 


MOV 
BR 


8% 


ERROR 


BAUD RATE TEST 
VRDONE , @RCSR 
141 


#1,B1T 
$142 


NEW 
NEW+2 


$137 


NEW+2 , OLD+2 
$143 


$144 


NEW+2, OLD+2 


WOLD 
$14 


$146 


86 


NEW, OLD 
NEW+2, OLD+2 


$135 


(EEE ES CS ~~ Oe ao 


ENOD 


SE@ 0076 


ELSE 
; OTHERWISE-INCREMENT TIME 
LET NEW := NEW + 81 


LET NEW+2 := NEW+e + CARRY 
ENOIF 


ares DONE 


IF NEW+2 LO OLD+2 THEN 


ELSE 


; OK 


NEW+2 >= OLD+2 
if NEW+2 EQ OLD+2 AND NEW LO OLD THEN 


; OK 
ELSE 


;NEW+2 > OLD+2 OR 
j (NEMA2 = 11% 2 AND 


: NEW >= OL 
"BAUD RATE DIDN’T CHANGE 
ERRHRD 86, BRUDRATE 
ENDIF 
ENDIF 
i UPDATE uot? TIME 
LET OLD : 


LET OLD+2 := NEW+2 


ENDINC 


;BAUD RATE 


SIS SSSSR RES BRO DOMINO RBS o Laas oo) Como SS 


ow = ——- a rr ee ee a | ee ee eee CU ee ee ee eee 


MO6 
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DVDVAA.P11  O6-NAY~77 15:29 132 PROGRAMMABLE BAUD RATE TEST 
LET R3 :B= SUSWR+1 AND #17 ; PUT BAUD BACK 

116703 172135 MOVE SUSHR+ R3 
tt 000017 Arce t B, at 4 

Sarees luseos Bice ee Ss Ra 

oo707 LET OTCSRHI :B= RATES(R3) ; LIKE HE WANTED IT 
116377 007104 172164 MOVB = RATES(R3), 3TCSRH 

007102 EXIT —_;SKIP TABLE 

007102 000431 BR TST33 ;;;EXIT THIS Test 

007104 RATES: 3A TABLE OF THE ACTUAL BYTES TO MOVE INTO THE 


UPPER BYTE OF XCSR F 


Ee TR Re PR ATE eR 


+ att OCATION * SUSWR’ 
f- See eae oe 


OFFSET INTO TABLE 





007104 010 : .BYT 0 0 
007105 030 : Bre : 1 
106 050 RO110: :BYT : 110 2 
wit MB mis cae te} iG 
Borit 130 ROR: BYTE 130 : 300 5 
007112 150 se 1$0 : 600 6 
oo7ii3 170 : hs 1 : 1200 +? 
ie BB A a a 
rile 250 REOOo: BYE 525 : 00 ie 
007117 270 R3600: .BYTE 270 : 3600 13 
007 120 310 : BY 310 : 4yg00 2 s«14 
lel : BY 330 : 7200 «15 
007122 “on 350 ; 9600 16 
007123 RiO000: .BYTE 370 : 19200 17 
nae 051040 BAUDRATE: .ASCIZ /BAUD RATE DIDN’T CHANGE. / 
1 044 
eats ba ioe 
007154 
EVEN 
Borie Wd: 6.0 
14 : ENDTST 


EEE eee a 


Sua eeaeneeneUOTOR SAE COOTER Ea 35 : 


SSsssssss 
eT ey ey er any 
WONMU £W— 


RES SS AROS ORNS 


Pili 


eee ae ee eee te 


CS ot} Oe8 
06-MAY-77 


026727 
001406 


MACY]1 27(1006) 
77 Yesed 


000010 
000033 
002372 


172042 


171762 
171774 


171644 


172012 


171772 


000001 


eae ee ee 


NO6 


rae Proce" ea TEST 


SELES AEESRRSE SESE AEES ESAS LELE SSSR S EELS EES ESR ER REESE EE EEES 


jtesenggonessnessconses 
LOGICALLY THIS IS 4 SEPARATE TEST 
al ni TTes 


it 


juts 


CLR 


65S: 


4-9 8 9-8 9b Eg a a a aa a 
INTERRUPT LOGIC TEST 


SEG 0078 


) 
) AND 
D) BUT NOT 


S 
INTERRUPT LOGIC WORK 


WITH INTERRUPT AR 
“Jy 2 Repeater eepaegepeenemanng yt oe 


#10, $TIMES i100, 10 ITERATIONS 
833, STESTN ;SET TEST NUMBER . IN 2 APT MATL BOX 
AR INT T OCCURED’ FLAG 
LET intris 
INTFLAG 
sGET VECTOR ADDRESS 
LET R3 := DLVEC 
DLVEC,R3 
:FOR THE TRANSMITTER 
LET R3 := RZ + 
#4,R3 
. TOR TOP TO POINT TO TRANS.SRV AT PRI 
SETVEC rine MIN 
Rl, (SP) 
R3 
Re AneRy (R1)4 
#PR7, (RI) 
eS 
BGNSUB 
864S, SLPERR aR INt 
LET iF Me Rey a RNase BY SXMITIE 
#XMITIE, 2TCSR 
-SET IT TO 0 
#PRO, -(SP) ;;PUT NEW PS ON on &FBcK 
#65, -(SP) *:PUT NEW PC ON STACK 
;;POP NEW PC PS 


#XMITIE,JTCSR 


" NOW SET I.E. BIT 
LET STCSR := JTCSR SET.BY aXMITIE 


;LET INTERRUPT HAVE TIME TO OCCUR 


WAITUS 10 
-(SP) 
‘it -(RS) 
PC WAIT 
(SP)+,RS 
-DID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLAG NE #1 THEN 
INTFLAG, #1 
$147 


ee oe - ee  e  es Ce — —- ——-— 


oO 
wi 
be pe 
fs bs 


da dadssree UO TD kee Oe 


ee ee 


PECCELULLRERERERARE LA Sida ca Gane er eee ee ciety FE 


a ee er oe ed 


ie ae 


ee eee —_ —e ee eee —<--- - —-— 
~-- - —_—-<—=— me ee ee eee 





B07 
OVOVE-Ave77 MECLA! 27(1006) J G-MAY-77 10 fen INTERRUPT LOGIC TEST SEG 0079 


iP rntPtac Eooao Tene ny ONE 


005767 002260 TST INTFLAG 
meas va — T ITTER DID NOT INTERRUPT IN TIME 
a 
RAR BO ONO 
104106 ERROR 70 
ELSE 
000401 BR $151 
$150: 
; TWICE 
‘TRANSMITTER INTERRUPTED TWICE 
ERRHRD 71,, TWICE 
104107 ERROR 71 
ENDIF 
$151: 
ENDIF 
$147: 
ENDSUB 
; INTERRUPT WITHOUT INTERRUPT ENABLE SET 
012767 007340 171550 MOV 864S, SLPERR " 
“CLEAR ' INTERRUPT OCCURED’ FLAG 
LET INTFLAG := 80 
OCS067 002236 CLR INTFLAG 
“CLEAR INTERRUPT ENABLE 
LET 3TCSR := STCSR CLR.BY SXMITIE 
042777 000100 171712 BIC 8XMITIE,@TCSR 
-NO INTERRUPTS SHOULD OCCUR. 
01274 000000 MOV PRO, -(SP) ;;PUT NEW PS ON STACK 
012746 007364 MOV #65S, -(SP) -:PUT NEW PC ON STACK 
oooog2 a RTI POP NEW PC AND PS 
“DARE IT TO HAPPEN 
WAITUS 10 
O10546 MOV RS,-(SP) 
1 000010 MOV #10,-(RS) 
004767 002116 JSR PC WAIT 
012605 MOV (SP)+,RS 
IF INTFLAG NE #0 THEN 
7 002176 TST INTFLAG 
001401 BEQ $152 
- INTERRUPT OCCURED WITH I E CLEARED 
ERRHRD 72,NOTENAB 
104110 ERROR 72 
ENDIF 
$1Se: 
BRESET 
ooo00s RESET 
ENDSUB 
“RESTORE VECTOR AREA 
CLRVEC R3 
010146 MOV R1,-(SP) :;PUSH R1 ON STACK 
010246 MOV Re: -(SP) ::PUSH Re ON STACK 
012701 000003 MOV #R3,R1 
010102 MOV Ri, Re 


a i eee -- oo 


CO7 
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DVDVAR.P11 O6-MAY-77 15:29 T33 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0080 
3389 O074e4 O6270e 000002 ADD #2,Re 
007430 010221 wr A ea 
x 1 MOV (SP)+,Re ;;POP STACK INTO Re 
3% 012601 (SP)+,R1 ;;POP STACK INTO R1 


ENDTST 


eer 
i 


3 


nee ee ee ee. ee e+ 
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DO? 
IG-MAY-77 10:36 
DVDVAA.P11  O6-NAY-77 133 


PAGE 83 
TRANSMITTER INTERRUPT LOGIC TEST 
UHHH HEHEHE HEHE HEHEHE HEH 
est ReceiveR InteMMT Loge Testes 


T’Loate, RBOTH De DATASET 


MACY11 27(1006) 
15:29 SE@ 0081 


SeSRReoR 


i RECEI I 
TH ST 
+ SI 
3% CHARAC MODES. 


8HHEHHHHHHEEHBHHHHHHHHHHHHHEHHHHHHHHHHHHHBBBBBHBHBHEHEHEHHE 
007440 O00004 +8134: SCOPE 
3410 OO7442 012767 000010 171510 #10, STINES 1100, 10 ITERATIONS 
3411 007480 012767 000034 171522 834, STESTN ;SET TEST NUMBER IN APT MAIL 
sie OCCURED FLAG 
1 *SET UP RECEIVER INTER. VECTOR 
a4 007456 cael we Anyone SETVEC DLVEC, SINTSRV, #PR7 
aute Some Stat 171572 MOV DLYEC, Ri 
3417 007464 012721 011574 MOV SINTSRV, (R1)+ 
Bis Sori Gist my tea 
3420 ‘PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
3421 007476 BGNSUB 
Mee 007476 012767 007504 171404 MOV #648, SLPERR 
3e3 007504 LET INTFLAG := 80 
3424 007504 005067 002072 CLR INTFLAG 
3425 -SET MAINT. BIT 
2b 007510 LET @TCSR := aTCSR SET.BY sMAINT 
3427 10 000004 171546 BIS #MAINT, aTCSR 
3428 ,CLEAR INTERRUPTS 
3429 007516 LET ORCSR := SRCSR CLR.BY #RCVRIE 
3430 007516 042777 000100 171534 BIC #RCVRIE, ARCSR 
$131 ; CHANGE PRIORITY 
3433 007524 012746 oD0000 MOV #PRO, -(SP) ;;PUT NEW PS ON brack 
3434 007530 012746 007536 MOV 865$, -(5P) *:PUT NEW PC ON STACK 
3435 007534 RTI :POP NEW PC AND PS 
3436 007536 6SS: 
3437 
3438 A CHARACTER 
3439 007536 LET isene f :B= #0 
3440 007536 105077 171526 CLR8  aTBUF 
3441 “WAIT A MAXIMUM 
3442 ;0F 50 MSEC FOR 
3443 ‘XMIT ROY TO SET IN TCSR 
3444 go7sH2 eae a a aes CALL TIMER IN <#SO, 8XMITRDY,TCSR, #SET> 
Sue Soe 012745 177777 MOV 8ST, -(RS) 
3447 007550 016745 171510 MOV TCSR; -(RS) 
3448 007554 012745 000200 MOV eXMITROY, -(RS) 
3449 007560 012745 o000S0 MOV #50, -(RS3 
3450 007564 004767 O01446 JSR PC tIneR 
3451 007570 012605 MOV (SP)+,R5 
3452 ;SET INTERRUPT ENABLE 
3453 007572 LET ORCSR := ORCSR SET.BY #RCVRIE 
st4 007572 052777 000190 171460 BIS #RCVRIE, IRCSR 
LET IT COME IN. 

3456 warriss 10 
3457 007600 O10S46 MOV RS,-(SP) 


et ee ee ee = a. 
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ee Gorehe bare? GBH i UMA 


60 007612 012605 MOV (SP)+,RS 
sibe -DID HE DO IT RIGHT? 
007614 IF INTFLAG NE #1 THEN 
3464 007614 026727 001762 000001 CHP INTELAG, #1 
Sie _ “NONE OCCURED 
3467 007624 tF INTFLAG EQ #0 THEN 
3468 007624 005767 001752 TST INTFLAG 
3 a = ser RECEIVER DID NOT INTERRUPT IN TIME 
3471 007632 EER 73, ,DIDNOT 
7e 007632 104111 ERROR 73 
EME _— 
3475 See 000401 BR $155 
376 007636 $154: 
3477 sRECEIVER INTERRUPTED TWICE 
3478 007636 ERRHRD 74, , TWICE 
3479 007636 104112 ERROR 74 
3480 007640 ENDIF 
3481 007640 $1SS: 
3482 007640 ENDIF 
3483 007640 $153: 
3484 “RESET MAINT. BIT. 
3485 007640 LET aTCSR := aTCSR CLR.BY #MAINT 
3486 007640 042777 OO0004 171416 BIC 8MAINT, JTCSR 
3487 ENOSUB 
3488 
3483 
3490 
3491 
3492 
3493 
3494 ; INTERRUPT WITHOUT I E SET. 
3495 007646 BGNSUB 
F496 4& 012767 007654 171234 MOV 864S , SLPERR 
3497 007654 LET @TCSR := 3TCSR SET.BY sMAINT 
3138 007654 052777 O00004 171402 BIS 8MAINT, JTCSR 
3500 “CLEAR INTERRUPT FLAG 
3501 007662 LET tNTFLAG := a0 
3502 007662 O00S067 001714 CLR INTFLAG 
3503 “CLEAR INTERRUPT 
3504 007666 LET ORCSR := ORCSR CLR.BY #RCVRIE 
3505 042777 000100 171364 BIC SRCVRIE, IRCSR 
3506 “DON’T LET THEM IN 
3507 74 p26 000340 MOV #PR7, -(SP) ;;PUT NEW PS ON STACK 
3508 12746 007706 MOV 865$/-(SP) ::PUT NEW PC ON STACK 
3509 007704 RTI ::POP NEW PC AND 
3510 007706 65S: 
$1 :DARE IT 
le 007706 waITus 16 
3513 007706 O10S46 MOV RS, -(SP) 


FO? 
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DVDVAA. P 06-MAY-77 15:29 TH RECEIVER INTERRUPT LOGIC TEST 
14 10 0 V 0, -(RS) 
Bi Bie BERS TUS salt 
ib 012605 MOV (SP)4+,RS 
17 i010 T pRePEN” 
ig 907738 IF INTFLAG NE 80 THEN 
; 007726 atta —s Bo yt ae 
357 - INTERRUPT OCCURED AT PRIORITY 7 
Eee 907730 ERRHRD 77, NOTENAB 
104115 ERROR 77 
3524 007732 ENDIF 
007732 $156: 
of ftEPR THE WORLD 
857735 0000s RESET 
529 “ 
Ea oor734 LET aresh® oer een CLR. ehy aMAINT 
042777 000004 171322 BIC BMAINT, aTCSR 
3833 007742 ENOSUB 
SS ;PRIORITY 0 AND MULTIPLE INTERRUPT TEST. -DATAIE 
007742 BGNSUB 
3537 007742 012767 007750 171140 MOV 864, SLPERR . 
23 ee 032767 O20000 171242 BIT SCABLE , SUSWR 7 a . 
3540 007756 001004 BNE $157 
S41 ae! CAN" T TEST WITHOUT A CABLE 
245 es 012767 000001 171172 MOV #1, STIMES 
3544 007766 BR TS$t3s :::EXIT THIS TEST 
3545 907770 ENDIF 
a] $1S7: 
354 CLEAR * INTFLAG’ 
3548 007770 LET INTFLAG := 80 
3549 007770 005067 001606 CLR INTFLAG 
3550 “CLEAR INTERRUPTS 
351 gor77 T ORCSR := ORCSR CLR.BY sDATAIE 
33 042777 OO0040 171256 BIC SDATAIE, ARCSR 
53 ; CHANGE PRIORITY 
sec 010002 01274 MOV 8PRO, -(SP) ::PUT NEW PS ON isa 
3556 010006 O1274% 010014 MOV 864$'-( SP) ::PUT NEW PC ON STACK 
3557 010016 ie RTI ::POP NEW PC AND PS 
228 seat LET @RCSR := aRCSR CLR.BY sREQSEND 
3560 O10014 042777 000004 171236 BIC BREQSEND , IRCSR 1 INTERRUPT ‘ 
$f} 010022 LET ape ta IN aRCSR eneete aDATAIE 
3563 010002 052777 OOOD4O 171230 BIS 8DATAIE, ARCSR 
3564 910030 LET  @RCSR := ORCSR SET.BY sREQSEND 
3565 010030 052777 O00004 171222 BIS #REQSEND, RCSR 
3566 ;LET_IT COME IN. 
56 010036 wAITUS 10 
3568 01 O10S46 MOV RS, -(SP) 
3569 010040 012745 o00010 MOV #14, -(RS) 


eee a ee SS 
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Bidoso Steet OO rv (SPDR 


2 
255 - DIO IT DO IT RIGHT” 
2 gt IF INTFLAG NE #1 THEN 

l 026727 001524 000001 CMe INTFLAG, #1 
78 010060 001406 BEQ $160 

,NONE OCCURED 

3879 is 767 001514 ST INTFLAG ee 
3580 seed ate BNE $161 
3581 ;DATAINT DID NOT INTERRUPT IN TIME 
3582 010070 ERRHRD 7S, ,DIDNOT 
3583 010070 104113 ERROR 75 
3584 j THICE OR MORE 
3585 010072 EL 
358 010072 O0040! BR $162 

- anes DATAINT INTERRUPTED TWICE 
288 g10074 : ERANRO a RUT CE 
359 010074 104114 ERROR 76 
33 010076 al ENDIF 
2s 010076 ENDIF 
356 010076 $160: 
359 010076 LET ORCSR := ORCSR CLR.BY sDATAIE 
35% 010078 042777 OO00040 171154 BIC SDATAIE, ARCSR 
ES 010104 ENDSUB 
3599 010104 LET RY := JDLVEC 
3600 010104 017704 171146 MOV QOLVEC, RY 
301 10119 CLRVEC RY 

10110 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
303 O10ll2 910246 MOV Re’ -(SP) PUSH Re ON STACK 
3604 910114 512701 ooo004 HOV and Rl 
ay Biot 3e p01 8s ooo002 ADD Ry Be 
3607 010126 01022! MOV Ro’ (R1)+ 
3608 010130 005011 CLR (RI) 
3609 O10 3e O12bGe MOV (SP)+, Re :;POP STACK INTO Re 
3610 0101 12601 MOV (SP)+'RI ::POP STACK INTO RI 
3611 010136 ENDTST 


we 


aka a a 
OO NICU £ ITU 


Soe ea 


22 gee - 
59 959 
DD FER 


BR S853 Game 


oo 
— 


he es oss 
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032777 
001774 


000001 171012 
00003S 171024 


000004 171102 


000000 
010174 


000377 


000200 171034 


171032 


000206 171014 
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bE ELEEEREEASSEESEEELAASUSEEEEESEAOSSEEESEEAELOEEEESEOOSESEEEEE 
j peegeusennennmeccesenpnenteneatscceeoecessasaaineeaanenaananay 


64S: 


$164: 
$163: 


$166: 


$167: 


TEST ACTUAL DATA T' 
;# NTERRUPT ENANCE BIT SET 
"my ace oan ah aucemonceye tae mineea en natant 


+6135 


#1, STIME 
MOV #35, STESTN 


BIS #MAINT, JTCSR 


SUB #1#2,RS 
JSR PC, DATLNG 
MOV (RS)+,R1 
CLR Re 

BR $163 

INC R2 

CMP R2, #377 
BGT $165 


BIT #XMITRDY,@JTCSR 
BEQ $166 


MOVB Re, JTBUF 


BIT #RCVRDONE , JRCSR 
BEQ $167 


a mee ae ee ——o= cos —<--- 


300, 1 TheF tuber 
35 9E NUMBER _IN APT MAIL BOX 


LET aTcSh := aTCSR SET.BY sMAINT 
; CHANGE PRIORITY 
;;PUT NEW PS ON isacn 
;;PUT NEW PC ON STACK 
;;POP NEW PC PS 


:GET DATA MASK 
CALL DATLNG OUT <RI> 


-ALL BINARY CHAR. 
INCR Re FROM 80 TO #377 BY #1 


TRANSMIT CHAR IN R2 
REPEAT 


-1S IT READY? 
UNTIL #XMITRDY SETIN @TCSR 


- TRANSMIT IT 
LET OTBUF :B= Re 
REPEAT 

;WAIT TILL ITS HERE 
UNTIL #RCVRDONE SETIN JRCSR 


{AND _ SAVE IT 
LET R3 := JRBUF 


SEG 008S 


10? 
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3668 01024% 017703 171010 MOV ORBUF , R3 
3670 
371 ;COMPARE TO SEE IF WE RECEIVED IT ALL 
a4 AE ite hs 
e o1 LeT AY 

7% Ol 010204 MOV R2,R4 
3677 010254 040104 BIC R1,RY 
3578 oi LET R3 := R3 CLR.BY RI 

1 040103 BIC R1,R3 
ry RECEIVED DATA 
3682 010260 tF RY ‘E Ro” THEN 
3683 010260 020403 CMP R4_R3 
3684 010262 001401 BEQ $170 
3685 “DATA COMPARE ERROR 
386 010264 ERRHRD 78, COMP, SBWAS 
010264 104116 ERROR 78 

3688 -<TRANSMITTED> <RECEIVED> 
3689 010266 ENDIF 
3690 010266 $170: 
3691 010266 ENDINC ; Re 
3692 010266 000751 BR $164 
3693 010270 S165: 
3694 
3695 MAINT. BIT. 
36% 010270 LET aresh® = se TeeR CLR. BY #MAINT 
3697 010270 042777 000004 170766 BIC #MAINT, JTCSR 
3698 010276 ENDTST 
3699 
3700 


a ee ee ee = we 


ee | mae le MACYi1 27(1006) 16-MAY-77 10:36 PAGE 89 
DVDVAR. P11 O6-MAY-77 15:29 T3S TEST ACTUAL DATA TRANSFERED SEG 0087 


g, Be aE AE SE SE SE A A a A a a a a a a a a a a a 
| PME ERE EEE EE EUEREEESE EEE EOE HEHE EE HOHE EEE EEENE EEE EEE 
3705 ; + LEEKEKSESESSRESESERESSREERSRERELEERRAAAEEREREREAARARAE ERE RHEE SS 
3706 010876 +6736: SCOPE 
1 012767 000001 170652 MOV #1, STIMES i100, 1 ITERATION 
3708 010306 Ol2767 000036 170664 MOV #36, STESTN :SET TEST NUMBER IN APT MAIL BOX 
10314 IF #CABLE NOTSETIN SUSWR THEN 
10 010314 7 020000 170676 BIT #CABLE, SUSWR 
11 010322 001004 BNE $171 
3712 :CAN’T TEST WITHOUT A CABLE 
#13 910324 EXIT TST 
14 Ol 912767 000001 170626 MOV #1, STIMES 
3715 010332 O004S6 BR TSt37 :;;EXIT THIS TEST 
3716 010334 ENDIF 
3717 010334 $171: 
3718 MAINT. 
19 010334 LET gresheoe he CLR.BY #MAINT 
3720 010334 042777 000004 170722 BIC. #MAINT, JTCSR 
3721 ; CHANGE PRIORITY 
3723 O10342 01274 000000 MOV #PRO, -(SP) :;PUT NEW on dtacx 
3724 C106 012746 010354 MOV #64’ -(SP) ::PUT HBC on STACK 
1 oodo02 RTI : POP BND PS 
3726 010354 64S: 
3727 T DATA MASK 
59 sh : 162705 SUB #12, RS one parte = 
3730 pte 00476? 001030 JSR PC. DATLNG 
3731 010364 012501 Y) (RS)+,R1 
3732 010366 LET RO := ORBUF ; START CLEAN 
#733 010366 017700 170670 MOV RBUF , RO 
BINARY COUNT PATTERN 
3735 910372 so * INCR R2 FROM #0 TO #377 BY 81 
2 fi sit fre 
3738 O01 $173: 
3739 010376 o0Ss20e2 INC R2 
t BtoNeH 20227 000377 oe | lM 
ae Bt NDS 003031 BGT $174 
3744 
ams ; TRANSMIT THE CHAR. IN Re. 
3747 O10406 REPEAT 
EL: 010406 $175: 
:WAIT ON READY 
3750 O10406 UNTIL #XMITRDY SETIN aTCSR 
3751 O1 032777 000200 170650 BIT #XMITRDY, JTCSR 
i73e BiONTS 001774 BEQ $175 
3754 -START IT ON ITS WAY 
3755 010416 LET OTBUF :B= Re 
O10416 110277 170646 MOVB = R2, aTBUF 


;GIVE IT A HEAD START. 


2 
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032777 000200 170614 
001774 


017703 170610 
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040104 


000743 
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T36 TEST DATA THROUGH CABLE 


$176: 


$177: 


$174: 


ERROR 


$173 


ee ee ee ee + 


WAITUS 10 


REPEAT 
T HERE 


IS I 
UNTIL SRCVRDONE SETIN @RCSR 


- RETRIEVE 
LET R3 := aREW 


sSTRIP_OFF JUNK on BOTH 


LET RY := Re CLR.BY 


LET R3 := R3 CLR.BY R1 


“WE HAVE TROUBLE 
IF RY NE R3 THEN 


-DATA COMPARE ERROR 
ERRHRD 79, COMP, SBWAS 


-<R2> <R3> 
ENDIF 


ENDINC ; Re 


ENDTST 


SE@ 0088 


me ee  - i—e eC 


vone § 


BEERS SEBS 
ee ee ee ee 
0 OO NIG UT.£ WITH 2 


SURRURR Se cad Fake sae CRM TOR CONANT 


Pll 


oo0o00 oO GcO0OO 
PH b= ba pe hm be bp bar be ee 


Rese Seen Re Rous 


oOo000 
[i oe 


es lel “A 
DVDVAA. 
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000001 170460 
000037 170472 


pave 76 


170520 


010710 


er ee ee ee ee - - o  - + 


LO? 
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T36 TEST DATA THROUGH CABLE 


HEE i t,t a leheleheheheleieheheieiehebeheieieiotehcieiededeichebsdeboiebebebotobebbtohohebebotoichbeboiciehelehoheheleboiotel 


$ ponpepgenanetognesescvetesccors oe, 


A DATA TRANSFER WITH INTERRUPTS 


tt 
° 2G HHGHIHEHHHHEHiHHHHiHHiHHHHiHiIGHIHEHEHH HHH HHHH HEHE 


t$137 


64S: 


Sc 
MOV 
MOV 


Fr 


MOV 


MOV 


#1, STIMES D0 1 ITERATION 
837, STESTN ::SET TEST NUMBER IN APT MAIL BOX 


DATA MASK 
CALL parting OUT <R3> 


Be BATCNG 


(RS)+,R3 


SPE IMS bl fa RE ERT 


LL BE TOEFERRED UNTI ALL DATA PATTERNS HAVE 


es NOT EQUAL THE TRUMGER RECEIVED Fite also WIL 


5 CHENG PRIORITY 


#PRO, -(SP) ;;PUT NEW PS ON Stack 
#64S, -(SP) *:PUT NEW PC ON STACK 
*:POP NEW PC AND PS 
3GET VECTOR ADDRESS 
LET R1 := DLVEC 
DLVEC,R1 
VR VECTOR 
LET capi := #REC 
#REC, (R1)+ 
LET (R1)+ := @PR7 
#PR7, (R1)+ 
;POINT TO TRANSMITTER VECTOR 
; AND SET IT UP ALSO 
LET (R1)+ := &TRAN 
8TRAN, (R1)+ 
LET (R1) := &PR7 
#PR7, (RL) 
jSTART COUNT AT O 
" LET R1 := a0 
RECEIVER STORAGE 
- LET R2 := 80 
3 # OF RECEIVED CHAR. COUNT. 
- LET R4Y := a0 


BRESET ;SET UP ALL REGISTERS 


SE@ 0089 


MO? 
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| DVDVAA.P11  O06-NAY-77 15:29 137 FULL DATA TRANSFER WITH INTERRUPTS SEQ 0090 
3859 -SET UP MAINTENANCE 
3860 010566 LET aTCSR := QTCSR SET.BY SMAINT 
= 010566 052777 O00004 170470 BIS SMAINT, aTCSR 
T I.E. IN TRANSMITTER 
3864 010574 LET atesh= := QTCSR SET.BY #XMITIE 
3865 010574 052777 000100 170462 BIS #XMITIE, aTCSR 
3866 ;AND RECEIVER 
367 10602 LET ORCSR := ORCSR SET.BY SRCVRIE 
3868 10602 052777 000100 170450 BIS #RCVRIE, ARCSR 
3870 
#71 “NOW WE WAIT UNTIL R4 COUNT (RECEIVED) IS EQUAL 
ar tes S20 — 
3874 010610 UNTIL R4 HIS NUMBER 
3875 010610 O20447 00026 CMP R4, NUMBER 
3876 010614 102775 BLO $200 
3878 j -DATA {Goupare ERRORS. 
010616 IF ERRCNt NE #0 THEN 
2880 O3Sel6 005767 000016 TST ERRCNT 
3391 610622 001405 BEQ $201 
38 SET UP FOR ERROR PRINTING 
010624 LET bo ve 
3884 010624 016702 000014 MOV SB, RZ 
3885 010630 LET R3 := WAS 
1 016703 000011 MOV WAS, R3 
3887 DATA COMPARE ERROR 
388 010634 ERRHAD 80, COMP, FIRST 
010634 104120 ERROR 80 
3890 010636 ENDIF 
3891 010636 $201: 
335 -<R3> OCCURED, FIRST: SB <SB> <WAS> 
3894 010636 EXIT —_;SKIP’ OVER SUPPORT ROUTINES & STORAGE 
3895 010636 o00462 BR TST4O :;;EXIT THIS Test 
so Ba 010640 000000 ERPCNT: O 
10642 001000 NUMBER: 1900 
10644 000 SB: BYTE O 
1064S 000 WAS: BYTE 0 
3901 
3902 
pe - TRANSMIT INTERRUPT HANDLER 
01064 BGNSRV TRAN 
3906 010646 TRAN: 
3008 : SET uP F SFER 
10646 T HOLD := eT ey R3 
3303 106% 010167 000032 MOV R1, HOLD 
3911 O0106Se 046367 000026 BIC R3; HOLD 
33 -AND SEND. 
13 010656 LET TBUF := HOLD 
3914 O10656 016777 oOD0022 170404 MOV HOLD, aTBUF 


ee ee ee ee sie i ee 
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| DVDVAAR.P11 


BS 
ow 


333 
20D “I 


SEREPS EERE RE ARRIR ORES Sasa oe] Soe CW RGEC R NUON SNNSS 


010664 
010664 


Oldeee 


01067e 


2° 
Si 
oo 


a8 898 
oo £OoOO 


33 Roe 8 


00S201 


020167 
001003 


042777 


017702 
040302 


010467 
040367 


020267 
o0141e 


005767 
001005 


116767 
110267 


005267 
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177750 


006100 170362 


177700 


000032 
177671 


177674 


177660 


NO? 


ise -77 10:36 
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FULL DATA TRANSFER WITH INTERRUPTS 


INC 


CMP 
BNE 


$202: 


222: 
RTI 


REC: 


MOV 
BIC 


TST 
BNE 


MOVB 
MOVB 
$204: 


INC 
$203: 


Rl 


R1. NUMBER 
sete 
@XMITIE, aTCSR 


222 


ERRCNT 


ee ee ae ee 


SEQ 0091 


j INCREMENT CHAR COUNT 
LET Al := Ri + #1 


if RIES RUMBER THEN 


NTERRUPT PROCESSING 


: STOP 
LET QTCSR := STCSR CLR.BY sXxMITIE 


ENDIF 


; EXIT SRV 
HOLD: 0 
ENOSRV 


jBace! VER INTERRUPT HANOLER 


;GET CHAR IN + MASK IT 
LET Re := @RBUF CLR.BY R3 


7 AS? REP EETD me 


1 RE 


“FIRST ERROR 

tF ERRCNT EQ 80 THEN 

;SAVE RECORD OF FIRST MISS 
LET SB :B= RHLD 


LET WAS :B= R2 
ENDIF ’ 
(ET ERENT := ERRCNT + #1 
ENDIF 


SS — 


Per ree reeeeeeeee 


Bos 


4 TRANSFER WITH INTERRUPTS 


C-11-DVDVA-A MACY11 27(1006) Ag-HAy- -77 10: 
Pll  O6-MAY-77 15:29 T FULL 1 
1 
Bi07e0 00S204 INC RM 
1o7es 
1 7? 177654 CMP R4, NUMBER 
bide 1003 BNE s20s 
1 
1 042777 000100 1 BIC : 
8 pa 70262 I #RCVRIE, ARCSR 
010776 
010776 $205: 
010776 O00401 BR 2222 
011000 oo0000 
011002 2222: 
011002 
011002 oo0002 RTI 
011004 





"COUNT THIS CHAR. 
LET RY := RY + Bl 
:ALL DONE? 
\ IF R4 EQ NUMBER THEN 
;STOP RECEIVER INTERRUPTS 
LET ORCSR := @RCSR CLR.BY sRCVRIE 
;MAIN REPEAT LOOP IS CHECKING 
ENDIF 
-FOR ’R4 = NUMBER’ ALSO 
; EXIT SRV 
RHLD:0 
ENDOSRV 


ENOTST 


SGGRRaGRERNS & 


SESSESEESS 
WONMWU CWO 


PeRRSERER UE SATIRE 


5 
3B 


ae Bl 1-DVDVA-A 
DVDVAA. 


Pll 


Be he be be be 


Sassrrrreeee G09 R72 Fen BE RR 288 


OOOOOOOOO000 200 200 C8000 20 20 200 
laud amd amd amd amd amd ned amd cmd md am sed oad a eed ed ee ed ed ed ed 


—— 
ne 


oO 
_ 
_ 
_ 
_ 
o 


ee ee ee ee ee ee ee oe eee 
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CO8 
Gu DATA TRANSFER WITH INTERRUPTS 


ue ee oe -  - -t —_ —~- 


SE@ 0093 


ge SE AE 4 SE 4 a SS SS i i a a a a a a a a a 


it 
o00004 tétuo: Sc 
big7é7 900010 170144 MOV 
15767 000040 170156 MOV 
052777 000004 170234 BIS 
052777 000001 .170226 BIS 
012777 000252 170224 Mov 

$206: 

o00200 170206 BIT 
001774 BEQ 
105777 170202 TSTB 
001401 BEG 
104121 ERROR 

$207: 
ooa00s RESET 
900413 BR 
051102 O40S0S 020113 
044504 20104 047516 
020124 5050S o40s25 
020114 000060 


tio’ Steet 
SMAINT, ITCSR 


SBREAK , JTCSR 


#2Se, JTBUF 
#RCVRDONE , ARCSR 
$206 

@RBUF 

$207 


81 


TST41 


jsesqnagnnnennesesnnasouetsovoonegoenwecessannsnnesenscsnannaaes 


SET 


ae rarer 


19 Ler 


IN APT MAIL BOX 
- SET HAINTENANCE T 
LET 3TCSR := OTCSR SET.BY SMAINT 


T BREAK BIT 
= JTCSR SET.BY sBREAK 


jNON-ZERO CHAR. °’ 
= #2eSe 


LET gteshes 


LET aTBuF : 
REPEAT 


-WAIT FOR DONE 
UNTIL #RCVRDONE SETIN QRCSR 


IFB @RBUF NE 80 THEN 


ce Rie aa EQUAL 0 


ERRHAD 8 
ENDIF 
BRESET ;CLEAN UP 


EXIT 
;;;EXIT THIS TEST 


BADBRK: .ASCIZ /BREAK DID NOT EQUAL O0/ 


ENDTST 


a ee | ce a a 


ee 


— ee ee ——_—— += - ——--+ - -=- 


DO8 
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eae gs HESESEKSSLSSSSSSSESASAESAEASSAERSREAAALASRRRRERRARSEAEERELERESE 
Hove TEST 41 NOT A TEST - SEND BACK TO LOOP 

404 © SEESSEKEESESLESSSSESESSSSRAASRERSRRRRRERRRLARRRRAARERARRRASREES 
4O44 011116 OO0004 t$T41: SCOPE 

4O4S 011120 Ol2767 000001 170032 MOV #1, STIMES ;;00 1 ITERATION 

4046 O111e5 104401 011134 TYPE 6$$ :: TYPE ASCIZ STRING 

4047 011132 OO0404 BR 64S ::GET OVER THE ASCIZ 

aa piss bigs -ASCIZ <CRLF>#CSR: # 

40SO O11144 016746 170104 MOV DLADD, -(SP) ;;SAVE DLADD FOR TYPEOUT 

40S O11159 1 TYPOC :G0 TYPE--OCTAL ASCII(ALL DIGITS) 
dose 11152 104401 011160 TYPE 67S :: TYPE ASCIZ STRING 

4053 011156 BR s ::GET OVER THE ASCIZ 

4054 --67§: .ASCIZ #, VECTOR: # 

4055 011172 66S: 

4056 011172 01674 170060 MOV DLVEC, -(SP) ;;SAVE DLVEC FOR TYPEOUT 

4057 011176 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
4058 011200 104401 011206 TYPE 69S :: TYPE ASCIZ STRING 

4059 011204 OO040S BR :GET OVER THE ASCIZ 

4060 --69§: .ASCIZ #,ERRORS: * 

4061 011220 68S: 

4062 011220 O16746 167666 MOV SERTTL, -(SP) i 5 SAVE SERTTL FOR TYPEOUT 

4063 011224 104405 TYPDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
4064 011226 167660 CLR SERTTL : RESET FOR NEXT DEVICE /PASs 

4065 Olle3se 000167 170462 IMP LOOP BACK UP TO THE BEGINNING 


MAINDEC-11-DVDVA-A 
DVDVAA. 


SPER EE ER ERC CUCU Lt cle SRERpRARS Lt i de 


SEES SSLELSSSL SLL £ 
ee eb be ee 
SBSRR2EBRLB 


mee ee 
fwre-o 


4115 


Pll 


011236 
011236 


O6-MAY-77 


000001 
000000 


016567 
016567 
112767 


036577 
001004 


112767 
000403 


112767 


MACY11 27( 1006) 
15:29 


177777 


000126 


000114 


000111 


000101 


E08 
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PAGE 97 
NOT A TEST - SEND BACK TO LOOP 


SEG 0095 


; BGNMOD SUBS 
MUTT iii eT 
ROUTINE TIMER <HOWLONG, WHICHBIT,REG,SETCLR> 


TIMER: 
ii ROUTINE: 


ee ee ee ee re re eee re re re ee Tt 


pide lie ee ee ee 


$2ile: 


$214: 


$215: 


TIMER 


THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 
IN ANY REGISTER. 


re: 
HOWL ONG THE MAXIMUM AMOUNT OF TIME TO SPEND IN 


MOV 
MOV 
MOVE 


MOVB 


THIS ROUTINE. 


WHICHBIT 4 Aas a WITH THE BIT(S) SET THAT ARE 


REG a 

SETCLR THE DESI 
EITHER #SET OR 8CL 

HE °C’ BIT 

BUT IT IS T 


NOTE:: THE USE OF (RS) 


REG(RS) , REGSAV 
HOWLONG (RS), TIMSAV 
#FALSE , FLAG 


WHICHBIT(RS) , JREGSAV 
$214 


#CLR, HOLDSC 
$215 


#SET,HOLOSC 


IS SET TO INDICATE AN ERROR 
ESTED BY THE IF.ERROR STATEMENT 


POINTER TO THE He REGISTER TO BE CHECKED 


IS PART OF THE LINKAGE 
HANISM BETWEEN THE CALLER AND THE CALLED 


s LELKERE AREAS EERE ERE SEALE REE AALRAE RARER ERE RAL ELE RE RELEASE EEE 


TRUE= 1 
FALSE= 0 
LET REGSAV := REG(RS) ; GET POINTER TO REGIST 
LET TIMSAV := HOWLONG(RS) ; SAVE HOWLONG FOR 
LET FLAG :B= #FALSE ; INITIALIZE THE EXIT FLA 
; START OF AN INFINITE LOOP 
LOOP 
; TEST TO SEE IF WHICHBIT IS SET 
IF WHICHBIT(RS) NOTSETIN aREGSAV THEN 
LET HOLDSC :B= sCLR 
ELSE 
LET HOLDSC :B= #SET ; REMEMBER THIS 
ENDIF 
NOW SEE IF THAT WAS WHAT WE WANTED 
tra HOLOSC EQ SETCLR(RS) THEN 


FOS 
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DVDVAA.P11  O06-MAY-77 15:29 ROUTINE - TIMER SEG 00% 
4185 BHISPS ABRGR3 900075 00008 rr ee 

4] 1314 661 I 

4124 ; JUST THE THING WE NEEDED 

4125 01132 LET FLAG :B= sTRUE 

4] 11316 112767 000001 o00062 MOVB = &TRUE, FLAG 

4] 11 ENDIF 

tig8 ll $216: 

41] ll EXIFB FLAG EQ sTRUE OR TIMSAV LE 80 

4131 O11 126727 0000S 000001 CMPB ss FLAG, #TRUE 

4i32 O11 001414 Q $213 

un Sine Sen ae 

4135 . WAY OR THE OTHER, 

4 : IF We STILL HERE T N’ HiniG ROUEN A WHILE 
4138 01134e WAITUS 10 ;WAIT FOR 10 MILLI-SECONDS 
413° O11342 O10S46 MOV RS, -(SP) 

41%, O11344 012745 000010 MOV #10, -(RS) 

414) 011350 004767 000140 JSR PC WAIT 

4142 011354 012605 MOV (SP)+,RS 

wiet OLt36 005367 00022 DEC —TIMSAV ee ee oe fe we 
4145 011362 ENDLOOP ; CONTINUED AT THE TOP 
414@ 011362 000736 BR $212 

wi? 011364 $213: 

4149 ; ONLY 2 WAYS TO GET HERE 

4150 : 1). WE RAN OUT OF TIME---ERROR ! 

me ; 2). THE BIT IS IN THE CORRECT CONDI TION--GOOD nt 

4153 011364 1FB FLAG EQ sTRUE THEN 

4154 011364 126727 000016 000001 CMPB =—s- FLAG, BTRUE 

4155 011372 001001 BNE $217 

4156 O11 RETURN NO.ERROR ; GOOD 

4157 011374 OOO4OS BR $210 

4158 011376 ENDIF 

4159 11376 $217: 

4160 011376 RETURN ERROR ; BAD 

4161 011376 000261 SEC 

41 011400 O00404 BR $211 

4164 011402 000000 REGSAV: .WORD 0 

wie tide pee rlpee “BYTE O 

eee H e 

wee sett p00 HOL OSC: BYTE 0 

4168 ; WE ARE DONE GO BACK HOME 

4169 011410 ENDRTN 

4170 011410 $210: 

4171 O11410 900241 CLC 

4172 O11412 $211: 

4173 011412 000207 RTS PC 


GO8 
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4174 

4175 +s PESRSSSLSSESSSSRRESSSSASSSASSSRSSSAELARLAEASRAARRAARARASSAERAS ESSE 

4176 O11414 ROUTINE DATLNG <MASK> 

4177 O114:4 TLNG: 

4178 ;# ROUTINE: DATLNG 

4179 : IS INE SETS UP A NAS FOR ATA, WITH 

tT PUT MOOUAY INEORATTON 1S AAS XIST: 

ai - Susur-~ The WORD FOR Lae) ERS 

4} 1 DATA-- A MASK FOR THE LOCA TION OF THE OCTAL 

4184 7 NUMBER OF DATA BITS 

4185S # QUTPUT---- 

4186 i MASK-- A MASK OF BINARY ONES RIGHT-JUSTIFIED 

4187 t THE NUMBER OF WHICH IS DEFINED IN SUSWR WORD 

a .s SESSSSASEHEASASLAERSAAESAARERRSSSRSRARARARAREAERAARARESARARARLEEE 

4] 

4191 O11414 LET MASK(RS) := #0 ; START 

4192 011414 o0S06S5 o00000 CLR MASK (RS) 

4193 011420 LET NUMBR := SUSWR AND sDATA 

4194 011420 016767 167574 000062 MOV SUSWR , NUMBR 

4195 011426 000056 MOV NUMBR; - (SP) 

4196 011432 042716 000017 BIC 8DATA’ (SP) 

1132 011436 O42667 000046 BIC (SP)+’ NUMBR 

4199 011442 INCR I FROM #1 TO NUMBR BY #1 

4200 O11442 012767 000001 167622 MOV #1,1 

4201 O114SO O00402 BR $222 

4202 011452 $223: 

4203 011452 005267 167614 INC I 

4204 011456 $222: 

4205S 011456 026767 167610 oo0024 1, NUMBR 

4206 011464 BGT $224 

4207 011466 LET MASK(RS) := MASK(RS) SHIFT #1 

4208 011466 006365 000000 ASL MASK (RS) 

4209 011472 LET MASK(RS) := MASK(RS) SET.BY 81 

4210 011472 052765 000001 o00000 BIS #1, MASK (RS) 

4211 011500 ENDINC 

4212 011500 000764 BR $223 

4213 01150¢ $224: . 

4214 011500 LET MASK(RS) := COMP MASK(RS) 

4215 011502 005165 000000 COM MASK (RS) 

4216 O11 RETURN 

4217 O11 000401 $220 

4218 01151 NUMBR : 0 

4219 011512 ENDRTN 

4220 011512 $220: 

4221 O11512 $2e1: 

4222 011512 000207 RTS PC 


08 
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06-MAY-77 15:29 ROUTINE - DATLNG SEG 0098 
4223 
4224 Se gr ene: asp atemegenanune aippiennenonngie porncenptiac 
4225 011514 RAUTINE <TIMED 
Heeb 0115:4 hair 
4 ;# ROUTINE: WAIT 
422g 1 THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
oe He A oer 
4231 1% cae MIT. THI S SET 
4232 # MICRO SEC. 

33 Bs OO. Mics aie BR. Ra 
4234 011514 O10146 MOV R1,-(SP) 10a ON STACK 
4235 011516 O:0°04%6 MOV Re, -(SP) ‘PUSH Re ON STACK 
42% 011520 010346 MOV R3, - (SP) ::PUSH R3 ON STACK 
437 01 152e LET R1 : tir (RS) 

4238 O11 016501 000000 HOV TT ),R1 

4239 011526 INCRU R2 FROM #1'TO R1 BY al 

4240 011526 012702 000001 MOV #1,Re 

4241 011532 O00402 BR $227 

4O4 OLS $230: 

4yo43 O11 062702 000001 ADD #01,Re 

4o44 011540 $227: 

4e4S 011540 1 CMP R2,R1 

4248 011542 101010 BHI 1 

447 O11b44 INCR R3 FROM #0 TO #700 BY #1 

404g O11 CLR R3 

4249 011546 O00401 BR $232 

4250 011550 $233 

4251 011550 o0S203 INC R3 

4252 011552 $232: 

4253 011552 020327 000700 CMP R3, #700 

4254 011556 003001 BGT $234 

4255 011560 NDINC 

4256 011560 000773 BR $233 

4257 011562 $234 

4258 011562 ENDINC 

4959 011562 000764 BR $230 

4260 011564 $231: 

4261 011564 012603 MOV (SP)+, R3 ;;POP STACK INTO R3 
4262 011566 Ole602 MOV (SP)+'R2 ::POP STACK INTO Re 
4263 011570 012601 MOV (SP)+'RI ::POP STACK INTO RI 
4264 011572 ENDRTN 

4265 011572 $225: 

4266 011572 $226: 

4267 011572 0900207 RTS PC 


108 
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DVDVAA.P11  Ob-MAY-77 15:29 ROUTINE - WAIT SEQ 0099 
4, 
4, .SBTTL INTSRV INTERRUPT SERVICE ROUTINE 
mh 011574 o  SEESESESERESSRRAERRAEREA RARER RARERARERAARRAA RASS RRSRRSEARRESESE 
; ;* SERVI ROUT : 
sere 3% hy OBA. ROUTE ae tn DOES NOTHING BUT INCREMENT 
4274 3% H TIME IT IS CALLED. IT ASSUME 
. H Ther Th “rain CALLING ROUTINE WILL KNOW WHA 
pA ts : aL, Fs a en 
4279 ;ADD 1 TO ’INTERRUPT OCCURED’ Fine 
4280 011574 LET INTFLAG := INTFLAG + #1 
4281 011574 005267 O0000e INC INTFLAG 
4282 011600 ENDSRV ;THAT’S ALL 
4283 011600 O00002 RTI 
4284 01160e 000000 INTFLAG: QO 


JO8 


NAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 102 

DVDVAA.P1 06-NAY-77 15:29 INTSRV INTERRUPT SERVICE ROUTINE SEQ 0100 

ieee ll TINE MYTYPE 

dee? BLLeOM Ae Ae 

yess 3 hahaha! 1>>-+-haladehahat t+ hahahalahalabadiabaleinel—iv>-inl-+-+-4-1--+-1-+-1-lalaleatalaalalhalalale 

4289 011604 104401 011612 TYPE :T 

4290 011610 O00405 BR 45 *:GET OVER THE ASCIZ 

usa 01162" bigs: -ASCIZ <CRLF>*TEST @ # 

4293 011624 01674 167350 MOV STESTN,-(SP) 5 ; SAVE STESTH FOR TYPEOUT 

tox 011630 104402 T tt TyPE--9C] ASCII(ALL DIGITS) 
11 104401 011640 T 675 *: TYPE ASCIZ STRING 

429 011636 O0040S BR s ::GET OVER THE ASCIZ 

4297 --67§: .ASCIZ #,ERROR # * 

useg pH ees 16767 167; 167316 - VB TEMB, SFATAL APT FAT ERROR NUMBER 

4301 ot iees IOOe e731 TYPOS SPARC,“ cae ECT HAL ASCII at SIGN 

4 11 1 011674 TYPE 95 ;; TYPE 

4303 OLLEPS ars Me oct 

4304 --698: .ASCIZ #,PC = # 

4305 011704 68s: 

4 11704 016746 167206 MOV SERRPC, - (SP) $1 SAVE /SERREC FOR TYPEOUT 

4 11710 104402 TYPOC =-OCTAL ASCII(ALL DIGITS) 

4308 011712 104401 011720 TYPE 71S is TYPE ASC ASCIZ STRING 

4309 011716 OOO4O4 BR 0S + GET HE ASCIZ 

4310 -:71§: .ASCIZ #,CSR: # 

4311 011730 dS: 

4312 011730 O1674% 167320 MOV DLADD, -(SP) Ha FOR TYPEOU 

4313 O17 194g T TAL OAL ALL DIGITS) 

4314 011736 104401 011744 T 73S 

4315 011742 ooo40S cae. , _ . 1 One OVER. THE ASCIZ 

4317 011756 546: . 

4318 O11 016746 167274 MOV DLVEC, -(SP) ;;SAVE DLVEC FOR TYPEOUT 

4319 011762 TYPOC :G0 TYPE--OCTAL ASCII(ALL DIGITS) 

4320 011764 ENORTN 

4321 011764 $235: 

4322 011764 $236 

4323 011764 000207 RTS PC 


- - —- <- a a a me ee orem + ~~ woes + 
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DVOVAA.P11  O6-MAY-77 15:29 ROUTINE - MYTYPE SEQ 0101 
4324 011766 ROUTINE CYCLE 

4 011766 CYCLE: 

: $ ey EE Seeger 
4328 i3 took ROUT INE rer at T0 THE 

4330 i nT f9 The We fe ihe of eT Vii unbeR TEst~ 

4331 : IT VICE AND Bit 

4333 1 GHHHHEHEHHHEHUHHHiHEHHHHHIHIHHHEHEHHHH HEHEHE 
4334 011766 REPEAT 

4335 011766 sats 

4336 011766 IF BITMASK EQ #0 THEN 

4337 011766 7 000122 TST BITMASK 

4338 011772 001027 BNE Bede 

4339 011774 IF INITFLAG EQ #1 THEN 
4340 011774 026727 000116 000001 CMP INITFLAG, #1 

real 12002 001003 BNE $243 

4 12004 LET INITFLAG := #0 
4343 012004 005067 000106 CLR INITFLAG 

4344 012010 ELSE 

4346 TEA 000403 sie BR $244 

4 1shis CALL SEOP ; AS A SUBROUTINE 
4348 012012 004767 000110 JSR PC, SEOP 

4350 012016 SPECIALADDRESS: ; BECAUSE SEOP_RETURNS AS A JUMP 
er Baie a a 

4 12016 012600 MOV (SP)+,RO 

4353 012020 ‘ ENDIF 

4354 012020 $244: 

4355 012020 LET BITMASK := 

4356 Ole020 012767 000001 o000te MOV #1, BITMASK 

4357 Ole0eb LET S$DEVCT := 

4358 Le0e6 012767 000001 167150 MOV #1, $DEVCT 

4353 O01 LET ADDRESS := S$BASE 
4360 012034 016767 167210 oo00s6 MOV SBASE , ADDRESS 

4361 Ol2042 LET VECTOR := S$VECT1 
13be O1e0ie 016767 167176 oo000S2 MOV SVECT1, VECTOR 

4 1 ELSE 

4364 O1 000410 BR $245 

4365 01 $242 

4366 O1 LET R4¥ := #10 

4367 O1 012704 000010 MOV #10,R4 

1368 012056 LET BITMASK := BITMASK ROTATE 1 
4 1 006167 000032 ROL BITMASK 

4 01 LET ADDRESS := ADDRESS + RY 
4 o 060467 000032 ADD R4, ADDRESS 

4 1 _ LET VECTOR := VECTOR + RY 
y 012066 069467 000030 ADD R4, VECTOR 

4374 01207e <a ENDIF 

qa98 615895 UNTIL BITMASK SETIN SDEVM 

4377 012072 036767 OO00IE 167152 BIT BITMASK, SDEVM 

4378 012100 001732 BEQ $241 
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LET ADRS := sADDRESS 


MOV BADDRESS , ADRS 
oa jaa LET SDEVCT := SDEVCT + #1 
RETURN 
$237 
BITMASK: 0 
INITFLAG: 1 
Ss: 4 
CTOR: 
ENDRTN 
$237: 
$240: 
RTS PC 


08 
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[ 
| 4397 .SBTTL ENO OF PASS ROUTINE 
| wate ; HTNGRENENT THe PRGs NOPBER (spac) © 0° 8 Means 
4401 ial CA END-OF “ROGER fete 1 pas PASSES THRU THE PROGRAM 
w0e is Y "END IS A DECIMAL NUMBER) 
4404 IE 5 Bran TOR 6 % hy pana: 
WOE 012126 SEOP: 
piciss oo l ane TSTNM THE TEST 
ns Hk 05067 16928 i, Tite i+ CERO ite NORDER OFS TERATIONS 
4411 eae Bierer 18np08 167030 I¢ #00600, Pass LIDONT ALLOW'A KEG. NUMBER 
4412 012152 DEC (PC)+ 
4413 012154 000001 SEOPCT: .WORD 1 
4414 912156 003022 BGT SDOAGN ; YES 
441S Oiei60 MOV (PC)+,a(PC)+  ;RESTORE COUNTER 
446 lel 1 SENDCT: .WORD 1 
4417 O1e164 012154 SEOPCT 
wis piss dies TUR rr, ASRS) FD SPE 
a3] bIBI76 ono] 012230 TYPE aes 5180 A re Reel om oer 
44o2 piso br 3700 o00042 SGETY2: MOV ds42. RO ::GET NONTTOR SOCRES 
4423 012210 001405 BEQ SDOAGN *:BRANCH IF NO DONT TOR 
4424 Ol2el2 000005 RESET CLEAR THE WORLD 
44oG Oieei4 004710 SENDAD: JSR PC, (RO) G0 TO MONITOR 
4425 Olecl6 gode40 :: SAVE ROOM 
4427 Ole2eeD NOP ;;FOR 
4428 ODl2ee2 000240 NOP ::ACT1I 
4429 12224 SDOAGN: 
4430 Ole2e4 000137 IMP a(PC)+ ; ; RETURN 
4431 Qleee 012016 SRTNAD: .WORD SPECIALADDRE 
4432 012230 377 377 000 $ENULL: .BYTE -1,-1,0 s NULL CHARACTER STRING 
4433 012233 O15 o42412 042116 SENOMG: {ASCIz <1$><l2>/END pass’ s 
4434 012240 OS0040 OSISO] 020123 
4435 Ole24% 000043 
| 


| 
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a. 

: x fF ae 

a a ee 
St tinnanine © = bp Su SESEcee ae ws 

¢ © seessey 8 gE Ot ee Be os, 

= S.ecepzwlos 9 : §,S8geeeecee, #2 §.., 

4 -—-oO [ od b —- - inintntntntnin > she _ 

¢ WeRBOOOORSy § 3 iaanneeeniael wits 
ae ee ee 
aaa ta eee 
33 ts NL 
SJEDDEDDBEOOO Ys e* sesevapsspnnat ic cde 2 
ei  . Rig 


aa. 
Se MeneaeES 


ooode4 
ooode4 
000026 


047520 042527 SPOWER: : 


Q0000000000 Oo0000000—0 
GOOOOO0000000 ABOOOOOAOOOOO8K0O000000 
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, 06-MAY-77 15:29 SEQ 0105 

“73 .SBTTL TYPE ROUTINE 
448 1 Tie 0 Te TO TYPE TYPE ASCLz FESSAG e cE PUST TERMINATE ITH AO. 
: Sci oad reer rie ie. 
448S LL ” TERS REQUIRED brags 
es TES pit & EONTRINS THE reer roe TOF ice arTeR. 
4488 S SCALL: 
4489 :%#1) USING A TRAP INSTRUCTION 
490 fe TYPE ,MESAOR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
Hug? # TYPE 
4493 * MESADR 
4495 = 

1 105767 166525 STYPE: TSTB  $TPFLG --1S THERE A TERMINAL? 
wee 1558 1 BP 1s ide IF E 
4498 012434 000000 . HALT ::HALT HERE IF NO TERMINAL 
4499 Olgas 000430 - BR 3$ oe : LEAVE 
wept ot 17203 oooo002 MOV setae) Ao ; ‘aeye OF ASCIZ STRING 
4502 Ol 122767 OO0001 166540 CMPB so BAPTENY,SENV =; ; RUNNING IN APT MODE 
WON blade SaevEp Bite | See ti Eo PT 
4504 O01 1 000100 166531 I TSPOOL, SENVM ;; TO APT 
Nope OLSNEe Site? 000004 YO OBB Bl Heetee OR OSereS FOR APT 
4507 pt eee 000774 JSR Pe’ Saty3 ae 
4508 012476 61S: .WORD O ise 
4509 012500 32767 OO0040 166507 628: BITB sAPTCSUP,SENVM ;; SSED 
4510 012506 001003 BNE :: YES, SKI T 
4511 012510 11204% 2s: MOVB  (RO)+,-(SP) He CHARACTER TO BE TYPED ONTO STACK 
4512 OleS5i2 001005 BNE 4§ ::BR IF IT ISN'T THE TERMINATOR 
4513 012514 005726 TST (SP)+ 5 Taking OR POP IT OFF THE STACK 
4514 012516 012600 60$: MOV (5P)+,RO : :RESTORE 
4515 pi Ses6 062716 000002 3S: ADD #2, (SP) : ADJUST RETURN PC 
4516 O125e% 000002 RTI ; ;RETURN 
4517 OleSeb 122716 000011 4S CMPB Os #HT, (SP) ‘BRANCH IF <HT> 
4518 O1 001430 BEQ 8$ 
4519 Ol 122716 000200 CMPB ss BCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
Weer pLSeue  BOLTOE ene 

1 Ol TS (SP)+ ; POP <CR><LF> EQUIV 

4522 012544 104401 TYPE : TYPE A CR AND L 
Wea DiseeB poehee SCRLF 

1 1 000130 CL SCHARCNT is CLEAR CHARACTER COUNT 
4525 012554 000755 BR ::GET NEXT CHARACTER 
4526 Hi 004767 000056 S$: JSR PC. STYPEC 3300 TYPE | THIS, CHORAC TER 
4527 Ol 1676 166370 6S: CMPB 3 s«SFILLC,(SP)+ ;31S IT OR FILLE CHARS. ? 
4528 O1 1 BNE tHIP NO GO GET NEX CHAR. 
4529 012570 016746 166360 MOV SNULL, -(SP) j3GET # OF NigLLER CHARS. NEEDED 
wea 012574 105366 000001 7S: DECB s«A(SF*) DOES A NULL NEED TO BE TYPED? 
4532 012600 002770 BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
4533 012602 004767 000032 JSR PC, STYPEC ::G0 TYPE A NULL 
4534 012606 105367 000072 DECB  SCHARCNT ::D0 NOT COUNT AS A COUNT 


CO9 
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1l  O6-NAY-77 15:29 SEQ 0106 
4539S 012612 000770 BR 7$ ; LOOP. 
a7 ;HORIZONTAL TAB PROCESSOR 
4539 012614 112716 gS: MOVE = #”_—«C (SP) j REPLACE TAB WITH SPACE 
4540 012620 004767 000014 9S: JSR Pc, $TYPEC :3T SPACE 
4541 Olebes 132767 oo00se BITB 87, SCHARCNT is BRANCH off NOT AT 
uous bt Sea pei see S (SP)+ + BOB OFF STACK 
Weue D1Sea Speo97 OE 1 ETT ENTIC PRINTER 
454s Ol 1 166304 STYPEC: TSTB TPS ::WAIT UNTIL PRINTER IS READY 
dou BI SENe 100373 166276 Ar Sop asTPa CHAR T TYPED INTO DATA REG 
4548 012654 ices 000015 000002 CMPB ,etsP) + ORR CROC TER BF AMR IRGE RETURN? 
4549 Olebe2 001003 BNE + RNG F NO 
4550 Oleb64 105067 000014 CLRB § S$CHARCNT ::YES--CLEAR CHARACTER COUNT 
4551 O1c679 00406 BR STYPEX : EXIT 
4552 (Ol i o00012 oo0002 1S: CMPB sé, (SP) ::1S CHARACTER A LINE FEED? 
4553 012700 001402 BEQ STYPEX ::BRANCH IF YE 
4554 012702 105207 B (PC)¢ :COUNT THE CHARACTER 
4555 012704 SCHARCNT:.WORD 0 CHARACTER COUNT STORAGE 
4556 012706 000207 STYPEX: RTS PC 
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4558 .SBTTL TTY INPUT ROUTINE 
wet ; OS aay geese ape cope tet aemeneqen sree tions mann sa pe 
4562 
wa HiSoeTunne su TOW REGISTER CHANGE ROUTINE, 
4565 
1366 be Ene Qe ne IN IN SOC THERE Suite aut TeH” REGISTER TRAP CALL 
4568 012710 022767 000176 166222 sSWREG, 515 THE SOFT-SHR SELECTED? 
N50 BtS7eR AFF seezen STB S + Heke? 
4571 Ole7es 100071 asad +: IF NO, DON’T WAIT AROUND 
e975 pisrss Azote 186F A BIC raises {2p} ::STR p-OEF TE ASCII 
Were Wee nates — SNE Ads iii Th ea TO CUSER 
4576 012744 126727 166164 000001 CMPB  =s-s SATOB, #1 :: ARE WE RUNNING IN AUTO-MODE? 
4577 Ol27S2 OO14S6 BEQ iss ::BRANCH IF YES > 
ieog 012754 104401 013435 TYPE  ,S$CNTLG ;sECHO THE CONTROL-G (¢G) 
4580 012760 104401 SGTSWR: TYPE iit CURRENT ogONTEN 

1 012764 016746 MOV SWREG, - (SP) SWREG F 
4582 012770 1oHHde eae Typo . f T rates ASC ICAL DIGITS) 
does 012776 aaerd 19S: CLR So : CLEAR 
4585 013000 OO0SO46 CLR -(SP) a ee 
4586 013002 105777 166136 7$: TSTB = AS TKS CHAR THERE? 
4587 013006 100375 BPL 7$ :: IF NOT TRY AGAIN 
WEBS 013010 117746 166132 MOVB a$TKB,-(SP) ;;PICK UP CHAR 
4590 013014 042716 177600 BIC #tC177, (SP) ::MAKE IT 7-BIT ASCII 
ee 
4594 013020 021627 000025 9S: CMP (SP), 82S ::IS IT A CONTROL-U? 
4595 013004 001005 BNE 10$ ::BRANCH IF NO 
ee hime tee WE cos, ane Pees 
1338 Weed pees : BR 19$ tier’ S TRY IT AGAIN 
4600 
4601 013040 021627 000015 10$ CMP (SP), #15 i1S 11 IT A <CR>? 
sets O16 001403 —— Be age) ives, is int iT ie Loge Ase 
4605 013094 016677 900002 166056 MOV 2(SP),aSWR  . 335A NEW 

1 00000 11S: #6. SP ; CLEAR UP TACK 

4607 01 3066 14401 001171 14$:  T sCRLF ‘ECHO <CR> AND < 
4608 0130 1ee7e7 000001 CMPB SINTAG, #1 | RE-ENABLE TTY KBD. INTERRUPTS? 
4610 013108 012777 OO0100 166034 _ HOV #100, aSTKS j RE-ENABLE TTY KBD INTERRUPTS 
4612 O13ile eithead 177522 16$ JSR PC, STYPEC  TECHO CHAR 
4613 013116 021627 C (SP), #60 ::CHAR < 0? 
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4614 Q131 
Si gue 
Si bag 
Bi Bae 
4619 iat 
4620 013144 
4621 ais 
os tH 
46e4% 013156 
“62S 013162 
46e6 9013164 
“627 013170 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 013172 
4640 013174 
4641 O13e0e 
4642 013206 
4643 013210 
4644 013216 
464S 013224 
4646 Ol3eze 
4647 013234 
4648 013240 
4649 Ol3e4e 
4650 013246 
4651 013252 
46Se 013256 
4653 013260 
4654 Ol3ebe 
we Risse 
ee Bee 
4658 013302 
4659 013310 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 013312 
4668 013314 
4669 013320 
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TTY INPUT ROUTINE 
T $5 F YES 
a 183) 467 zs 3 . 
Bice, (SP)+ ss EESTRIPCOFF ASC 
ist e($P) iP THiS THE FfAst CHAR 
ASL ep +R ‘ Suir PRE T 
ASL (SP) ;; CHAR TO MAKE 
Fo (SP) >; __ ROOM NEW 
17§: I 2(SP) ;;KEEP OF CHAR 
BIS -2(SP), (SP) ;;SET IN NEW CHAR 
BR 7$ ;;GET THE NEXT ONE 
18S: TYPE SQUES ;;TYPE ?<CR><LF> 
BR ;;SIMULATE CONTROL-U 
.OSABL LSB 


5 SESE AE AEE SEE 8 8 J 0 EE 9 9 9 J J A a EE a EE 
ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


: ROCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 
: RETURN HERE ::CHARACTER IS ON THE STACK 
ie ::WITH PARITY BIT STRIPPED OFF 
SROCHR: MOV (SP), -(SP) ;;PUSH DOWN THE PC 
MOV 4(SP),2(SP) ::SAVE THE PS 
1S: TSTB =s-- AS TKS ::WAIT FOR 
BPL 1$ ::@ CHARACTER 
MOVB  a$TKB,4(SP) ::READ THE TTY 
BIC 81C<177> .4(SP) ::GET RID OF JUNK IF ANY 
CMP 4(SP), #23 IS IT A CONTROL-S? 
BNE 3$ ::BRANCH IF NO 
2s: TSTB = AS TKS :WAIT FOR A CHARACTER 
BPL 2s ;;LOOP UNTIL ITS THE 
MOVB  a$TKB,-(SP) ::GET CHARACTER 
BIC #40177, (SP) ::MAKE IT 7-O1T ASCII 
CMP (SP)+, bel -:IS IT A CONTROL-Q? 
BNE 2 +: IF NOT DISCARD IT 
BR 1$ ;;YES, RESUME 
3S: CMP 4(SP), #140 ::1S tT UPPER CASE? 
BLT 4 ;;BRANCH IF YES 
CMP 4(SP), #175 ::IS IT A SPECIAL CHAR? 
BGT 4g ;;BRANCH IF YES 
BIC #40, 4(SP) ::MAKE IT UPPER CASE 
4g: RTI GO BACK TO USE 


ss TTTVITTIT TTT TTT TTT Titties 
j ATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 


. ROLIN ;; INPUT A STRING FROM THE TTY 
i RETURN HERE :: ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
i :; TERMINATOR WILL BE A BYTE OF ALL O'S 

SROLIN: MOV R3,-(SP) ;;SAVE R3 

1$: MOV aStTYIN,R3 i 


$3 ADDRESS 
es: CMP SSTTYIN+8.,R3 ;; BUFFER FULL? 


SEG 0108 
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4670 013324 101405 BLOS 4S :;BR IF YES 
4671 O1 104410 ROCHR G0 READ CHARACTER FROM THE TTY 
“4672 O1 11261 MOVB = (SP) +, (R3) j3GET CHARACTER 
4673 1 000177 10S: cps #177, (R32) i318 J A 
1 l 3$ ;;SKIP IF NO 
1 001170 4g: TYPE SQUES :: TYPE A?’ 
See 1 BR is ::CLEAR THE BUFFER AND LOOP 
4 1 111367 000044 3S: MOVE (R3), 98 ::ECHO THE CHARACTER 
mx: 6 133703 pbaare pia 3 biS, (R3)+ K FOR 
Weeo Biases BT See SNe + CORB IF 
4681 01334 105063 W777 CLRE =1(R3) ne AR RETURN (THE 1S) 
wees O13974 dt eens nov. 156)+,R3 i 
4684 013376 01164% MOV ~(SP) : ADJUST “ie STACK AND PUT ADDRESS OF THE 
4585 O01 016666 000004 oD0002 MOV on Segp) tt T ASCII CHARACTER ON IT 
4686 013406 012766 013420 000004 MOV sSTTYIN, 4(SP) 
4687 013414 000002 RTI js RETURN 
4688 O1 Mig 000 9s: -BYTE 0 i STORAGE FOR ASCII CHAR. TO TYPE 
4689 01341 000 BYTE 0 :  TERMINA 
4690 013420 000010 STTYIN: .BLKB 8. i | RESERVE "D yTES FOR TTY INPUT 
4691 013430 052536 O0SO1S 000 S$CNTLU: .ASCIZ /tU/<15><12> :CONTROL “U" 
4692 013435 136 906507 900012 $CNTLG: .ASCIZ /tG/<15><le&> HICONTROL -¢° 
4693 013442 O0S01S 020122 : ASCIZ «15><12>/SWR = 
4694 0134S0 020075 000 
4695 013453 047040 OS3SO0S SMNEW: .ASCIZ / NEW = 
4696 O13460 036440 000040 


ee ee ee | + —-- - a 


GO9 
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1697 .SBTTL APT COMMUNICATIONS ROUTINE 
HE OQ ? ee na a a ae Eee 
ALES 18767 GRRL GREER TA: ARES ESE TB APTA 
4 1 000403 BR gatyc 
4703 itp 112767 000001 000220 sary: MOVE 81, SFFLG ;:TO ONLY REPORT FATAL ERROR 
4 13510 O1004% "MOV RO, ~ (SP) ;;PUSH RO ON STACK 
4706 013512 O1014% MOV R1'-(5P) PUSH R1_ON STACK 
4707 O11 105767 000206 S18 SHFL LG $1 SHOULD UD TYPE A MESSAGE? 
78 HE mL 000001 165464 CMPB ss BAPTTENV, SENV {opener TING UNDER APT? 
4711 ee are) 000100 1654SS atte TSPOOL, SENVM ;; MESSAGES? 
4712 Ql 1425 BEQ -;IF NOT: BR 
4713 013542 Ol oo00004 a4(SP),RO :: GET MESSAGE 
4714 013546 oo00n2 oo0co0c4 ADD #2, 4(SP) TURN ADDR. 
4715 013554 165414 1S: TST SMSGTYPE ;;9EE IF ‘ABNEY W/ LAST XMISSION? 
eis Bee BURT seo | dire ten ao 
rig Oleee lereD as: Tere he / FINO'ENO OF FES 
42 O167e 166 165412 suB SMSGAD, RO : SUB STAR BRT OF Ne MESSAGE ans 
4 pt 78 1 165406 Rov , SMSGLGT BUT NGTH IN RaLBOX 
4723 013604 012767 OO0004 165362 NOV a4, SHSGTYPE :: TELL APT TO TAKE MSG 
4 ese yee 000004 000016 3s: MOV (SP). 4S ;;PUT MSG ADOR IN JSR LINKAGE 
4726 013622 062766 000002 000004 ADD #2. 4(SP) jBUNP RETURN ADDRESS 
4727 013630 016746 164142 MOV 177776, -(SP) ; ;PUSH 155776 ON STACK 
4958 pt eug B00000 _— 4§ TRGRO FC, STYPE re aoe 
4730 013642 Ss: ‘ 
42 D1 ze4e 405767 000062 10$ STB SEFLG js SHOU ULD REPO REPORT FATAL ERROR? 
4 013650 005767 165340 qs! SENV H AUMRING URGE APT? 
176 ees rear 165312 118: TST SMSGTYPE gf ar LAST MESSAGE? 
4 013662 001375 BNE 11 tt TE NOT: WAIT 
ve 013664 017667 OO0004 165304 HOV OH (SP) SFATAL ::GET ERROR & pie, 
4739 b13700 Boscer 16 INC SMSCTYPE 5; TELL Abt YO” rake ERROR ERROR 
4740 013704 105067 000020 128:  CLRB  S$FFLG ?:CLEAR FATAL FLAG 
4741 013710 105067 000013 CLRB = SLFFLG ; CLEAR Log “FLAG, 
4742 013714 105067 000006 CLRB = SMFLG ‘CLEAR MESSAGE FLAG 
4743 013720 012601 MOV (SP)+,R1 ‘Bop STACK INTO Rt 
me 0137¢e 012600 HOV (SP)+, RO ;;POP STACK INTO RO 
4746 013726 nor SMFLG: .SYTE 0  TMESSG. FLAG 
4747 013727 000 SLFLG: .BYTE OQ sek LAG 
748 013730 000 SFFLG: .BYTE 0 !:FATAL FLAG 
4780 Boae00 5176=200° 
4751 000001 TENV=001 4 


APTE 
APTSPOOL=100 


2 
8 
8 
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4753 000040 APTCSUP=040 


er a er a ee em eee ee 
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Me .SBTTL ERROR HANDLER ROUTINE 
y $e THIS ROUTINE KIL INCRETENT THE ERROR FLAG AMO THE ERROR COUNT, 
4 H UN 
Ness Soave tSaVE THE BAO OO Ee TT Te oe EE eR ORECE OF OTHE ERROR CALL 
4760 ieTie, SuITCH yee BY THIS ROUTINE ARE: 
4762 i eeWi3=1 INHIBIT TYPEOUTS 
4763 :#5W10=1 BEL ane ON 
4764 ; #SWOS=1 L ON 
4765 ; #CALL 
17bb i ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 
4768 013732 SERROR: 
4770 Oar 105267 165143 7s: {NCB SERFLC Hioet, THe. ERROR FLAG sed Say 
mee ot Brae 165134 165172 SOY Hoe ISPLAY Binet UE MEER OND ERROR FLAG 
4773 Oe 165162 BIT O° Sour iB ON N ERRORS 
irre ares IBMT ouiey ie tine Bet 
4776 013764 7? 16Sil22e 1S: INC tt } NUMBER OF E 
4777 013770 O11667 165120 MOV (SP). SERRPC GET ADDRESS OF ERROR INSTRUCTION 
w8 Bt ane 1e57Ps 165110 ety aOYE 2, SERR SITEMa ; -STRIP AND THE ERROR ITEM CODE 
4780 014010 165122 BIT #BIT13, aSWR ttectp TYPEOUT IF SET 
4781 014016 O01004 BNE 20$ ::SKIP TYPEOUTS 
4782 014020 004767 JSR PC. MYTYPE ::G0 TO USER ERROR ROUTINE 
4783 014024 104401 001171 TYPE  ,SCRLF 
4764 014030 20S: 
4785 O14030 122767 OO0001 165156 CMPB = SAPTENV,SENV =; ;RUNNING IN APT 
4786 014036 O01 BNE 2s ‘NO, SKIP APT ERROR REPORT 
4787 O14040 116767 165050 coocoY¥ MOVE sive 21S ::SET ITEM NUMBER AS ERROR NUMBER 
4788 014046 177430 ISR SATYY ;:REPORT FATAL ERROR TO APT 
4789 0140S2 21S: BYTE n°? 
4790 014053 "BYTE O 
4791 014054 poor 22S: BR 225 ; APT ERROR LOOP 
we figs Woe wes he OP eine 
4794 ate 000000 HALT : + HALT 4 ERROR! 
4795 014066 104407 CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
479% 01 001000 16SO42 3S: BIT #81709, ISWR ::LOOP_ON ERROR SWITCH SET? 
4797 Ol 1402 BEQ § ::BR IF NO 
4798 014100 016716 165004 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 
4799 014104 005767 1650S2 4g: TST SESCAPE CHECK FOR AN ESCAPE ADDRESS 
4800 O14119 001 4Ge BEQ cs i 3 BR IF NONE 
4801 ivite 16716 165044 “ MOV SESCAPE,(SP)  };FUDGE RETURN ADORESS FOR ESCAPE 
4803 014116 022737 012214 oooo42 ~~ CMP 8SENOAD, 2842 ;;ACT-11 AUTO-ACCEPT? 
4804 014124 001001 BNE 6$ ‘BRANCH IF NO 
480S 014126 900000 HALT YES 
4806 014130 6$: 
4807 014130 o00002 RTI ; ; RETURN 


ee ee a. ee -  ee -——- —--—- 
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.SBTTL SCOPE HANDLER ROUTINE 
ere Ere a te costes ay GUBTESTE, TT MikL, SRCARYEER 


aos 


4811  STHIS E 
Wale tSAND LORD THE. feet NG encsterne) ihr te Hae Rec. BERENS o> 
4813 : LOAD THE NTO DISPLAY <I 
4g14 #THE SWITCH OPTI Bye tute ROUTINE ARE 
1S ;#SW14=1 ON 
4816 :#5W11=1 INHIBIT ITERATIONS 
4817 : #SWOS= LOOP ON ERROR 
4818 : #SWOS=1 LOOP ON TEST IN SWR<7:0> 
4819 *#CALL 
me 3% SCOPE ;; SCOPE=IOT 
4822 014132 SSCOPE: 
4823 014132 104407 CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 
4824 014134 040000 164776 1S: IT #81714, ASHR 3b ON PRESENT TEST? 
uges 014142 001114 Soe F Y=] 
4826 -geeeeSTART OF CODE FOR THE XOR TESTERSSess 
4827 014144 O00416 $xXTSTR: BR ;;1F RUNNING ON THE "XOR™ TESTER CHANGE 
‘ 14146 O01 MOV a “St et ONTENTS OF THE ERROR VECTOR 
W650 14152 p13 3 ney ee 000004 MOV aes uERVES T FOR One Time OuT 
4831 014160 005737 177060 TST ON XOR? 
4832 014164 012637 O00004 o4i?7 CEO ERRVEC gs THE ERROR VECTOR 
oe trees ee cs om svi SEAR nek Re eK A AFTER A TIME OUT 
4839S 014174 EX oo0004 MOV (SP) +) J8ERRVEC EAI 2 OR IE 
483% 000423 BR se He ON THE PRESENT fret 
14 6$:;#8888END OF CODE FOR THE XOR . Seene 
4838 O14202 032777 OOO4OO 164730 BIT #81T08, ISWR ;;LOOP ON SPEC. TEST? 
uBso BL4Bt as IRR tee 
1 7 164722 164662 STSTNM He IGHT TEST? SWR<7:0) 
ye41 O01 1465 BEQ >:BR IF YES 
weve Oliigee 1 7 7 164655 2s: TSTB RFLG i sHAS AN OCCURRED? 
deoa 1iss8 re A 164661 164645 FEB a ,SERFLG 3;MAX. E FOR THIS TEST OCCURRED? 
4e4S 014236 101015 BHI 3 : BR 
4646 O1¥eo 032777 OO1000 164672 BIT 1T09, ISWR 1 ON ERROR? 
4847 014% 001404 BEG 4§ NO 
4848 O14e50 016767 164634 164630 7S: MOV SLPERR, SLPADR ::SET LOOP ADORESS TO LAST SCOPE 
B50 Oi 4ee5 164617 4S: LRB aa i ZERO. THE ERROR F LAG 
i 1 7 1646 CLR STINE 9 BE wernt, TO MAKE 
apes BiNere OO4OOO 164640 3S: fT $1711, aSWR Asay roar 
4 O1t 164674 ae 1 oss MF if T 
SS fie Ble : fH : hae 
1431 164570 INC SICNT 
14314 7 164640 164562 CMP STINES, SICNT Ben TERATIONS MADE 
14 BGE $0 Hoa 
14 12767 00000i 1645S2 1S: MOV #1, SICNT Ti Ie east EDUNTER 
486 | a1 016767 d0003¢ 164620 ae HOY iw eS igeT N R OF 
Ma Bia 10°5E7 ues 164626 MOVE TSTNM, STESTN Hi GOUNT Te NUMBE seks APT MAILBOX 
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St GE GH Ieee MMC ee MEE fea 
SS) HSE Hee SB SE ven, BBP He ena A HePogees OT Te 
4569 O1440e 16716 164500 ov SLPADR, (SP) ae RE TURN ADORESS 

1 Shady ee bge SMXCNT: abo. it haxe NUMBER OF ITERATIONS 
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DVDVAA 
4a72 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

4874 s3 REGGE GGG EEE 

4875 jATHIS yee 1S, To week af ‘fee BINARY 5 4° if fagn tie 
2 ISPS PIL A nde Sob tS as 
4875 HAREPLACED bITH SPACES. ; 

4881 ‘# «MOV NUM, - (SP) ;;PUT THE BINARY NUMBER ON THE STACK 
A =4 :% TYPOS ;;GO TO THE ROUTINE 

Woes Ludi STYPOS: Ov RO, -(SP) ;sPUSH RO ON STACK 
Ce: my Rsntae) HP St 

SF ie Be) Ra igs 

dear Bluwse Bieece Y $0200, 5(5P) BET BLOM BUTTE Bp SIGN 

4e92 014434 100004 1$ ::BR IF INPUT IS POS. 

4es3 0144 NEG RS He NARY 

Hey O16 ea oo00ss 000001 #’-, 1(SP) He if I NEG 

se fice ire wae, PNR EMO ATU o o 
‘835 Olidee 016001 O1veL6 . av SOTBL (ROD, Rl Lorne rSTan 

4901 eta ieoios at yg’ :?BR IF DONE 

4902 O17 o0s202 INC ' INCREASE THE BCD DIGIT BY 1 

2 Ss Ree © Re sper os apeer 

Se HE ib Be fie tobe os 

4909 014510 106316 SS: ASLB = (SP) : MSD? 

4910 014512 1 BCC bs ::BR IF 

Hail GIN 14 iiees 990001 177777 MOVB 1(SP),-1(R3) 5; YES- Be THE SIGN 

4913 01 000040 SOBs a0. ii MOKE TteacSpace iF NOT ALREADY @ DIGIT 
4914 Biaess Titees ; AOve Re RS). 3$PUT THIS CRPRAETER IN THE OUTPUT RUEFER 
Wale D1vese 00010 a TECK THE TRGLE. TNOEX 

Wai? Biueas riage BLT ae + Ee SS THE NEXT ett 

4918 O14544 003002 BGT 8$ *:G0 TO EXIT 

4319 ies8 aaores MOV RS, Re i367 THE $9 - 

4921 O1 1 8S: ae ay bts THE ESD THE Hirst NON-ZERO? 

4922 O14554 100003 BPL 95 ::BR IF NO 

yaea Biaees fABRRS 177777 177776 4. AONB CASFP RD EE eRarnator ON 

Wace DINE7O Sizeus NOV CSP DSTRS tibop STACK INTO Ra 

4927 b14e72 biseue MOV (SP)+'R2 POP STACK INTO Re 


MO9 
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4928 014574 012601 MOV (SP)+,Ri ;POP STACK INTO RI 
1 0 MOV. (SP) 4° RO {pop 1 kK INTO 
4 1 i 1 014626 TYPE k : NOW THe RUBBER 
1 Ol 16666 000002 000004 MOV 2(SP),4(SP) ;;ADJUST THE STACK 
y932 014612 012616 MOV (SP)+’ (SP) 
4933 014614 RT ;;RETURN TO USER 
pra O16 SOTBL: 10000. 
14628 O01 1000. 
4936 O14622 000144 100. 
4937 014624 000012 10. 
4938 014626 000004 $DBLK: .BLKW 4 


i ee - 


—_——— —— - - a = rr cc ee ee ee ee - - - 
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4339 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
dead s2 SHESRKSSSSSSSSSRSRSSERSRERSESERERRRERSSRSRRERRRARRARAERSERRREE SE 
RTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
4943 : #0C (ASEIT) NUMBER AND TYPE IT. 
woe j #STYPOS ---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
4946 # MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
4947 te TYPOS !:CALL FOR TYPEOUT 
494 1 # .BYTE ON ::N=1 TO & FOR NUMBER OF DIGITS TO TYPE 
4949 fT -BYTE ;;M=1 
4950 1 ;;1=TYPE LEADING ZEROS 
4951 is ;;O=SUPFRESS LEADING ZEROS 
qee5 :#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
4954 #STYPOS OR S$TYPOC 
> TCAs yu (SP) 0 BE TYPED 
uae 1 PYPON ; hig) TYPEOUT 
4959 !#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
4960 *#CALL: 
4961 t MOV NUM, - (SP) ;;NUMBER TO BE TYPED 
4962 1 TYPOC CALL FOR TYPEOUT 
SS BS FE OR cos Ye HEI AR PIU Ey 
4965 O01 12667 000207 MOVB = (SP)+’ SOMODE+1 tT AOpen OF peat ets TYPE 
4967 014654 16 do0002 ADD 82, (SP) ADJUST RETURN ADDRESS 
ot VF: %4 171 S$TYPOC eR Hf} TT FILL SWITCH 
a0 atts 1157bs eerie 16 Nove $a’ SomobE + 1 ii Ey rte See bicits 
4971 014676 112767 OO0000S 000154 STYPON: MOVB 8, T +: SET TH ITERATION COUNT 
1376 14708 1 MOV ’=(SP) tt 
14 1 MOV RY; -(5P) He RY 
4974 014710 O10546 MOV RS, -(SP) : SAVE RS 
4975 o1471 704 000145 MOVB SOMODE +1, RM ::GET THE NUMBER OF DIGITS TO TYPE 
4376 147 NEG 
dire tine? Saas ly Bi fivane §—FESATNATSU OEM. Auten 
4978 o14vso | (TibtB4 pooiSe MOVE  SOFILL, RY GET THE PERO-PILL SWITCH 
4980 014734 016605 O000i2 MOV 12(5P);RS ::PICKUP THE INPUT NUMBER 
4981 014740 005003 CLR R3 CLEAR THE OUTPUT 
1386 014742 006105 1S: ROL R : :ROTATE INTO "C™ 
14744 000404 BR ;;G0 DO 
4984 014746 006105 2s: ROL 5 FORM THIS DIGIT 
4998S 014750 006105 ROL RS 
2 ie Be mG 
ne 14 14 1 3S: ROL R32’ ;;GET LSB OF THIS DIGIT 
4989 014760 105367 000076 DECB  SOMODE :: TYPE THIS DIGIT? 
usr BLuvbe BHeTAS tee RID. 
1 O14 177770 I #177770,R3 *?GET RID OF JUNK 
4992 014772 001002 :: TEST FOR O 
4993 014774 005704 TST RY :: SUPPRESS THIS 0? 
4994 014776 001403 cs ::BR IF YES 
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.SBTTL TRAP DECODER 


SEG 0119 


ee TINE HITT PICKUP THE COMER BYTE OF THE “TRAP” INSTRUCTI 
L 


: ins eur ENS Mt WI 


T 
tor THE DESIRED. ROUTI My THEN USING THE BODRESS OBTAINED IT WILL 


:*#GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 
MOV 2(SP),RO 
TST =(RO) 
MOVB (RO), RO 
ASL RO 
MOV STRPAD(RO) ,RO 
RTS RO 


(SP) ,-(SP) 


STRAP2: MOV 
MOV 4(SP),2(SP) 


-SBTTL TRAP TABLE 


;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
;;RESTORE THE PSW 


;*#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


!4BY THE “TRAP” INSTRUCTION 


: ROUT INE 

$TRPAD: .WORD STRAP2 
$TYPE ;;CALL=TYPE 
STYPOC ;;CALL=T 
STYPOS ; ;CALL=TYPOS 
STYPON ;;CALL=TYPON 
STYPDS tt CALL=TYPDS 
SGTSWR ;;CALL=GTSWR 
SCKSWR js CALL =CKSHR 
SROCHR ;;CALL=RDCHR 
SROLIN ;:CPLL=RDLIN 


- END 


TRAP +6 ( 104406) 
TRAP +7 ( 104407) 


TRAP+10( 104410) 
TRAP+11( 104411) 


TTY Re se ROUT INE 


333 
88 


GET SOFT-SWR SETTING 


{est FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 


D10 
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1043 
4381 


1022 
1047 


aes ZBCu=devennsrsncaneen fet cwnae 


et ad ht a wh wt wt tw tt en ees Same Been 3 io oe oes 


5 SRSBRSSSRSSSSSSSS SESSA SSSA SaaS a eae Re ReeS BASS 


ht th ed ot Se Kee eee Noon Meee Reem eae Kee Kee Keo Kame Rae Reed kam hom am eee hem ham ame! tt 











ie ‘dia aT jellies 


22 PPSOREEE9 


MAINDEC-11-DVD 
-Pll 
{Tres 4 
T = 1 
IT0O = l 
ve = 000002 
= 
1703 = SoDDiG 
ITO4 = 000020 
ITO0S = OO0040 
IT06 = 0001 
IT07 = 
IT08 = 
ITO03 = 001000 
IT1 = 000002 
Hi: ae 
ITle = Ql 
IT13 = 020000 
IT14 = 040000 
IT1S = 100000 
Ite = QOO0004 
IT3 = 000010 
ITY = 000020 
ITS = OOOO40 
IT& = 000100 
IT7 = 000200 
IT8 = OOO400 
ITS = 001000 
BPTVEC= 000014 
BREAK = 000001 
BRK = 010000 
CABLE = 020000 
CARDET= 010000 
CKSWR = 104407 
CLR = QO0000 
CLRSEN= 020000 
COMSPD= 000100 
COUNT O0631le 
CF = 000015 
| CYCLE ieee 
TA = 000017 
TAIE= 000040 
TAIN= 100000 
TLNG 011414 
ISP = 177570 
SPLA 001142 
SPRE 000174 
ADD 001254 
ADOR= 175610 
VEC 001256 
DSWR = 177570 
OTR = Q0000e 
EMTVEC= 000030 
ERRCNT 010640 
OR = 100000 
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CROSS 
4369% 


8S6 
835 
834 
833 
8Se 
831 


830 
4838 
4796 


on, en 
RRR Bone 


w 
— 


3 


ee 


4377 


PAGE 
REFERENCE TABLE -- 
43868 


4780 
4924 


1283 
ee0e 


E10 


2290 
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1300 
2380 


1305 
2478 


1769 
2535 


i171 
4318 
2046 


4011 
2581 


3852 
es58 
1187 


2066 


3539 


3563 
2618 


1219 


2086 


3710 


35% 
2640 


4050 


2134 


4312 


21s4 


SEG Ole! 


2174 
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DVDVAR.P11 O06-MAY-77 15:29 SEG 0122 
yak Sa ooo004 7908 1104 110S* 1116% 4829 4830 4832#  483S# 
| -Emse = pppoe ease 4099 
= 
FLAG 114 opeee 2680*% 2889 4099 4126% 4131 4154 41668 
FRERR = 020000 8438 
FRFD = 040000 91Ss 1548 
GNS = dS sont 1142 4048 ages 4060 4291 4297 4304 4310 4316 S047 so4e S049 
5051 5053 S S0S6 5057 
GTSWR = 104406 1137 r} 
HOLD 010704 3910% 11# 14 39308 
HOLDSC 011407 4111% 4116% 4122 41678 
HOWLON= 000000 40718 4097 
HT = 000011 7008 44517 4558 
I 001272 10768 1196% 1217% 1220 1222 4200% 4203 4205 
ILLMEM= 000004 8028 1191 1227 
INITFL Olell6 114S* 4340 4343% 43878 
INTFLA 011602 1203% 1208 3291% 3331 3335 3357% 3373 3424* 3464 3468 35Ce* 3519 35494 
3875 3879 4OBl# 4284 
INTSAV 011574 1192 3303 3417 42718 
IOTVEC= 000020 7958 1088%  1089% 
ITCLRE 006560 31078 
LF = 000012 7018 4552 4658 
LOOP 001720 11468 4065S 
MGINT = 000004 8758 1329 1342 1345 1359 1362 1376 1381 2747 2806 2863 3141 3427 
3486 3498 3832 3622 3697 3720 3861 4008 
M2SK = 000000 41788 419e% 4208% Y4el0#  4elS# 
Max 006310 2891 2895 29688 
MYTYPE 011604 42878 4782 
NEW 007156 3164% 3166% 3182% 3184 3193 3201 3203 3221 3223 32718 
NUMBER 010642 3875 38988 3976 
NUMBR 011510 4194*% 4195 4197% 4205S 42188 
OLD 007 162 3137 3139% 3193 3201 03 3221% 3223% 32728 
ORERR = 040000 8428 3014 3 3081 
PARTTY= 000020 9058 
PBAUDS= 004000 8658 
PBAUDO= 010000 Sh4e 
PBAUDI= 020000 8638 
PBAUDe= 040000 8be8 
PBAUD3= 100000 8618 
PBR = 000200 908% 3128 
PERR = 010000 B448 
PIRQ =1 707% 
PIRQVE= ls 
PRO = e4# 3313 3362 3433 3555 3626 3723 3828 
PR1 = QO0040 7258 
PRe = 000100 7268 
PR3 = 000140 7278 
PRY = 7288 
PRS = > 94 
PRE = 7308 
PR7 = 000340 7318 1193 1401 2390 P4a8 2591 3304 3418 3507 3839 384S 
PS = 177776 7048 70S 
PSH == 177776 7058 
PYRVEC= 000024 7968 109%% 1095 4440" YH4le 4450 4Y44S6% 44468% 4469# 
RATES 007104 3155 3234 32398 
RBUF 001262 10728 1162# 1163* 2841 2935S 3010 3053 3081 3056 3152 3668 3733 3772 


— ea ee ee ee 


ee ee... -- ~~ ee -—- = a ee oe 
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DVDOVAR.P11 
RCSR 001260 
RCVRAC= 004000 
RCVRDO= O00200 
RCVRIE= 000100 
RDATAO= 000001 
RDATAI= 000002 
TA2= OOO0004 
RDATAS= 000010 
TAY= 
RDATAS= 
RDATAG= 000100 
RDATA7= 000200 
= 104410 
ROLIN = 104411 
REC 010710 
REG = QO0004 
REGSAV 011402 
REQSEN= O00004 
RESVEC= 000010 
RHLD 011000 
RING = Q40000 
ROOSO 007104 
ROO70 007105 
RO110 007106 
ROi2S 007107 
ROiSO 007110 
RO200 007113 
RO300 007111 
RO600 O07ile2 
R10000 007123 
R1800 007114 
R2000 007115 
Re400 007116 
RuBoD.  Ba7120 
RSSTAC 001334 
R7200 007121 
R39600 007122 
se 010644 
SECREC= 002000 
SECXMI= 000010 
SET = 177777 
SETCLR= 000006 
SPECIA 012016 
STACK = 001100 


MACY11 27( 1006) 
O6-MAY-77 15:29 


3 
10718 
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CROSS REFEREN 


1495 
ie 


l a" 176 

seize Sone 

ae 88. Bi 
10% 18 

2H41 2958 3172 

3868% 3980% 4019 

1991 2877 2914 

1879 2763 2787 

1795 1808 1811 

SOS68 

39398 

4095 

4108 41648 

1561 1S74 1577 

3560 3565 

3948* 3952 3960 

2225 2245 226S 

1174 

36998  3960# 

2313 2333 2353 

1639 16S2 1655 

2677 2720 2761 

4122 

4431 

1086 


G10 
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1s09# 1511 1Se4# 1527 1561 1574# 
* 1gR8 1669% 1676 1686# 1691 1717 
1 - 1811 1 . “° 1 oH 4647 
» Soee’ Boda Shia" Baas B83" Bes 
cae 2456 2499% 2508 esil 2527% 
* 2640 e762 2787 e8el 2844 
3430%® 8 3454# 3505 3552e%  3560%  3563# 
2921 
2822 2844 2918 e941 3172 
1825 1828 1842 1847 3430 S4 
1591 1S94 1608 1613 e222 2242 
39888 
1669 1672 1686 1691 2310 2330 
2820 2880 2889 S446 4116 


13408 
1873 
2174# 
2353 
77 
3565* 


3664 
3805 


2262 


2350 


2499 


2600 


2610 


343444444 
X pepe 


et ee 
DVDVAA.P11 
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START W013 
STKLMT= 
SR Aerie 
SWREG 000176 
SWO = 000001 
SWOO = 
Site = 
= 10 
SHO4Y = 
oe : Bae 
= 
SHO7 = GoonoD 
' = 
ae = pio 
| Sdl = QO0000e2 
SW10 = 002000 
SW11 = OO4000 
SWi2 = 010000 
SW13 = G20000 
| SW14 = O40000 
SW1S = 100000 
SW2 = QO0004 
SW3 = 000010 
SWH 436s =-:«OONO20 
SWS = QO0040 
SW6 = 000100 
SW7 = 000200 
SWB = 000400 
SWS = 001000 
TBITVE= 14 
TBUF 1270 
TCSR 001264 
TCSRHI 001266 
TAO= Q00001 
TDOATAI= 000002 
TAZ= 
TA3= 1 
TDATAN= 
TDATAS= OO0040 
TOATAB= 000100 
TOATA7= 000200 
ME = 
KER Oiiexe 
MSAV 011404 
VEC = 000060 
oer = 000064 
TRAPVE= ered 
TRTVEC= 000014 
TRUE = 000001 
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1 
4 
1114 
9 


a 


eels 


me ee eee 


16-MAY-77 10:36 


1106 
4824 
1135 


2765 
41448 


1093# 
4131 


e824 
41658 


4154 


3450 


H10 


PAGE 127 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2754# 


1269 
1424 
3141# 
3751 


40708 


2814% 
1283% 
1427 

3310% 
3861# 


444g 


2873 


1286 

1441 
3320% 
3865* 


446 1# 


4568 


3000+ 


1305S 

14S8# 
3427 
4008* 


4605+ 


4773 


3161# 


SE@ 0124 


4780 


MAINDEC-11-DVDVA-A 
DVDVAA 


MACY11 27(1006) 16-MAY-77 10:36 
-Pll O6-MAY-77 1S: 


—— WI 


ee | 3 





D040 1981-20218 
004212 2031 31098 
Tst2. og2a02 l2d4e 
ane 
TEIee paees ee ga7e8 
Ters4  DoSaae Sk 3 os7ee 
TeT3s5 © O0S470 Scoe De SBR 
TST2— 005636 57418 
TST? 0S752 58008 
Tst3. 002344 13208 
T3130 Qhedee H 
T8131 19 2530 297 29788 
TST32(O0bB24 5023 «3043S («3081 «= s3091—s«3 108 
TeT33 «O07 166 3132 «303732868 
TST © OO744O 34098 
TST35 (010136 3544 «36178 
TST3 010276 37068 
TST37, «010470 3715 38088 
TST4 13978 
TeT¥0 011004 3865 40038 
TST41 O11116 4033 «YOM 
TSTS 02662 14858 
TSTe 003002 issue 
1317 _ O03168 1552 ge ola 
Type? = touuo? 1038 does = SgeR” «299 
We7g 4500 45834896607 
TYPOC = 104402 4051 4057 ««4294~=Ss«307— «4313 
TYPON = 104404 S0S08 
Vector desios west ug73e 4g898 
MATT praeca 3up6 eos eae” 2ssS IS 
5570 «43761 «41 Ss«2e 
WAS -O1OGHS 39008 ‘ 
WHICHB= Oo00G2 40718 4io8 
XMITIE= 0001 gris 1411 144142744 
XMITRD= s 1913 2679 2707 2722 
772.~—«*O1 ‘ 
ie : 
Tay Eoseee U 4731 Bn 
SATYC 013510 4 47048 
jo 47008 
SATY3 OLB472 47018 
v4 47038 4788 
SauTOB 001134 9858 113% 4S76 4697 


110 


PAGE 128 
CROSS REFERENCE TABLE -- USER SYMBOLS 


31248 

4295 4302 
4626 4675 
4319 4582 
2637 2995 


L444 1458 
3448 3683 


4314 
4682 


3077 


3310 


4418 
4775 


3326 


3320 


4421 
4783 


3370 


3360 


4470 
4930 


SEG 0125 


4522 
4999 


_ MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 129 
| mM O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS SEG 0126 


=} 
~“ 
T~ 
ee 
8 
=n 
uw 


Ww 
— 
= 
— 
ae 
Ww 
-_ 
x= 
Tw 
Ww 
: 
aE 
Ww 
-_ 
Ww 
— 
£ 
N 
Ww 
— 
w 
_— 
Ww 
rf 
ax 


DVOVAAR. P11 
Be BI oe 
T O11 & 
SBELL a 001164 — 4775 4808 ex 
ene ot uses 4S348 yS41 45508 «45550 
alll rete at 1081 1082 1090 1096 1097 1098 
SCNTLG Wee: 4579 92 
al nie Re 46918 
SCRLF iat 100e8 4523 4607 4691 4782 4808 
SDBLK O14626 4896 4 49388 
SevT Oo1eDs 10148 430s 
SDORGN Ol2224 4414 4423 44098 
Pip Hiei ba ee 
soe lel6é2 10% 44168 
SENDMG Ol2233 4418 44338 
ee TAT igiae iiss" y 47; 4733 478S 
eB ee 6 ot i, Sk 
SEOPCT 012154 1096 44138 4417 
SERFLG 001103 oie inees 4808 a. is 4B44 4yeS0# 4872 
SeRere = ponboe 11458 tee 11488 11$28 tae itaee ie. 11978 itm 11606 ie ieee i. 
Liege ey, Ligee 1170. Ze 178 ue 17 Ligve eg Lise Luss 115 
an aC en nC a Cn nes 
1 13898 1 13738 1 13768 1 14088 1 14228 861423 14248 1425 
isis isse Isi0’ sees i ise rok it ieee’ Iosge ees) Isge 873. 
fel, tes ie, ier fe, feet fo, tet ie ieee ee, bet ie 
io. eet ite, fee ie, Jee fee, ieee i, eee) de ee, 
3, gos BOM a SC USCA UR ME On 
si, BY 8, Sst i, HY a a er es 24 335 
ae] Siege oi suet Re suet 5 Su? gous ess 530. esas Sepe 
ee 
| ec es a eT 
| 7 OR Re eR ee eC 
30678 #3068 30908 3091 1318 3132 31378 3138 31398 3140 
31 3156 31588 3159 3lbls8 
| 


ce ee - | 





MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 130 
| DVDVAA.P11 O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 


235, Us" UR, Ue Us, Ue 


o,f i. fe ie. Gee ee 
oi, Be oe 


3780 sue 38348 , 38378 r me 
i] a sare i * 148 sie. 178 
oe a: ee 
4117 41268 4127 41398 641448) = 41 41578 
4198 42008 4201 4207 ] 
= Se oe SS. 
oe io, Se ie, Se ah, ee 
SERROR 013732 1090 «=: 47688 
SERRPC 001116 9788 4 4777% 4778% 4779 4808 
SERRTB 001254 a 4 
001112 a 4O64# 4776% 4808 
001162 9998 1096% 4799 480 4808 4866% 
SETABL O0l214 10188 
SETEND 001254 960 10518 
SFATAL 001176 10ll18 4e99e 4 4737% 
SFFLG 013730 4700% cus" 4731 4 47488 
SFILLC O011S6 9968 4558 
SFILLS 001155 9958 4558 
SFSAND= 000310 3# §61210 1255 1271 1288 1307 1331 
1465 1497 1513 1529 1550 1563 1579 
1719 1735 ior 1771 Ter shh ot 
ee Rs 
Ss oh oo ms He) F 
3470 : pe a ne ort 3712 
SFSBAD= 000401 om & i218 : i i288 109 133 
eh i i if iB 
ae ae oS 
eb4e 03 760 e846 e078 wx, 
a i ae ae eh OM 
SFSBLA= 000170 38 
a 000150 2 
$2562 B50 ct 1208 1253 1286 1305 1329 
146 1495 1511 1S$27 1548 1561 1577 
171 1733 1750 1769 1795 1811 1828 


Ea RIA eat 


BUSS sates ete pes 


age oe oe oe 
Rvs. 
or 
pm bs be 

Lo 

Pur ee 

taal 

Cell anol 


or 
Se 
~—ul 


are Rosas 


aates 


mow 
Se 
OW 


ae ee ee + ae ee - 


MAINDEC-11-DVDVA-A MACY11 27(1006) 16-NAY-77 10:36 PAGE 131 
| DVDVAA.P11 O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 


2114 2137 2157 
e41 


ne 


2049 
2333 


a tes 
BeRSss 
Bs 
Bees 
wanes 


Salameianl 

Re 
bes fae be 
sae 


b= b= b> bb Re 


i 


Bu 
SaaS 


WIN9S2 Sasece 
Ba 
= 
Sleds 
aS 


s 
stotesse ness 
se 


1946 
3BRe sede 
Suez Bue Sune seue 
eee 2640 268 269 Se 
Seq Bau seey 50 
ae eS te 
3790 3880 3891 3320 . 3956 
4i08. «S413, i684 yi 4i59 
SN: BIg : ie tt fe = me 
SFSNAM= 000160 38 
oh sae oon wes tage Et sees «teens? 
me ye ee ie be 
e313 33g sea «Sue 54 
Shs Seca 5081 586 ee 169 S73 
3464 3468 3519 3539 3575 3579 3683 
SFSOR = 000320 sve, ie i237) 1288 «= «13071331 
146 149715131588 1580 15b3 1579 
og ue ue ie ue us 
S258 S2u3 538838 Bane be8 e3/ 
Tn 
Woes «4110 ss4124=Ss«4SB «S439 = «4342 
SFSRTN= 000300 3¢@ 4071 4170 4178 4Yee0 422? 4265 
SFSSEL= 000140 38 
Fant: os) og! Uh eS 
Bek: ED : 63 Gh 08 He fe MB 
1703 t738—s«38hs«13Eo~=SsdTPse:=sTBr]~s1800 
2026 2049 2069 2089 2114 2137 2157 
2313 2333 «2353s? 2439 
2618 2640 2707 2787 2844 2877 2895 


3 
an 
= 


é 


aes 


Siew 


ee 


ba 


aie 
eeaaos 


SS 
mete 


Be De bs pe he 
ca 


eel ee oe oe a 


RBS 
SES 
ae3 


Beppe Reb 
ee iam 
SasnEaSee 
POR SPRBN ORS 


Be Be 
£ &S5 


pe he 
x 

Pile bee 

he 


ee 

3 

wo 

-_ 

iw 
7 
Bo 
—— 


— 


Ht 
Ge 


Sea 


8 
6 
z 


at od eet ed 
SBE 
—u 
(a0 lod eed 
Rete 
Ue 


s 


Bscenaes Bases 


BS 


§ 


WwW 
N 
x 
@ 


SOO el ee oad 
HT 


_ MAINDEC-11-DVDVA-A MACYL1 27(1006) I16-MAY-77 10:36 PAGE 132 
| VARA. P11 O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
3032 3053 3081 3096 3128 3169 3172 3193 3203 3331 
3464 3468 3519 35393 3575 3323 3683 3710 3783 3880 3920 
3976 4023 4108 4122 41S4 4337 4340 
001120 9798 
T OO1124 98is 
012204 44Oe8 
SGTSWR 012760 45808 5S0S3 
SHD = 000000 680 
SHIBTS 001000 Ssse 
SICNT 001104 9728 4e8S7% 4858 * 4871 
SIFLEV= 177777 38 1 r 12148 1 e 12598 12e698 12758 12868 12928 13058 13118 
13488 13518 ire 1 F ] 1 | 13878 14118 14178 1e5ce 14338 149448 
14698 149S8 15018 1Sil8 18178 1 8 1 8 15488 15548 15618 15678 
15948 1 8 16138 l | l b | 1 8 16928 16618 16728 tite 183 | 
17238 l | 1 g 1 3 1 t 1 bY l § 1 : 18018 18118 18178 
rece spore 1 : 1 snags 1 ; arate siias 1 ; svar Avaae 
ict, 
sire Bless ete Sais Soke Sen Goat BE SESk Seek Gost 
: eer Go cat att BM Gt Gut Bu eal ge 
ebebs & cece BH 8 sours seize | aH 18 8 
ca for io Oot tet get get ae eee at eet 
: five Sivee diese dae Soe Bie Bie Sele Dee ee 
36838 36908 37108 37178 ##=%37838 ##=$j.437908 #38808 @ 39208 39268 
Se 39768 39838 40238 i40eSe 41088 41188 4Y4lees Y4ie8s 41548 41598 
43S4e@ 43758 
SILLUP 012410 YEEG 44738 
SINTAG 001135 8 4608 4697 
$ISKO = 000001 12088 1214 12538 1289 12698 1275 12868 1292 13058 1311 13298 
1351 13628 1368 13818 1387 14118 1417 14278 1433 14448 1450 
icone 170k i7ig° 1942 1$278 133 15488 1554 15618 1567 18778 
1 16138 161 1 + ] 1645S 1 g 1661 16728 16 16918 1697 
17338 1739 17508 1756 17698 1778 179S8 1801 18118 1817 1828s 
1s. 18798 a 19138 ol as side 4 a 17 sre oS 
185 % ray | . eaice 38 gieh e273" 8 . 
: Bs i af cg, S98 - ‘4 
2727 e77ge 277% 
a 


; 
ze 
epon 


Spero 


26408 2646 e 29 27078 2713 7278 732 # 27878 
2833 eB44s 28778 #2887 # cSUS esise 86 cS34 s 2s48 
30148 3025 30328 3045S 30538 ee 30818 Se 30968 2103 31288 
a a ee 
$ISK1 = 000001 ae 3328" ls tae 3 aage" 34688 at Te 4458, 4883 
SITEMB 001114 9768 4299 4779% 4787 4808 
F 001172 10038 4682 4691 4 
FLG 013727 4741% 47478 
OCTA= | : on ; 1199 150 ici0 ie 1215 et ice i i 
170 sake iste CSG iSP 8251823132 sTSea Te 
14le 1413 1417 1418 1428 ae’ 1433 1434 1445 
1451 1464 1465 1469 1470 1496 1497 1501 1502 1Sle 1513 





MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 133 
| DVDVAR.P11 O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 


wa 
-_ 


A 
mR ie ne ie et 
@ i i ie ie 
7) 5081 5087 ig fie 818) 
ne i eee 
2381 2382 2387 14 1 

es 

2620 


BBs 


: 
passe 
3 


aa 
33 
pease sa ueees 


e 
: 
E 


SS 
oe 
2352 


$252 BaeeNa eS PaoeN SS 
Bs 
itetat4 $3 
seseons 


80 91 
ci ie 3ei7 
3380 3465 a8 78 
3$e1 253 3541 3546 ad 
ae 3654 Spee at, Stee 3666 
3796 3 74 s ee 
ee es ee ee a 
17 4024 4 4030 
4114. 4115 411 4119 41 41 4128 
4147 4148 415 i138 41 41 4159 
4173 4177 4201 4 4 ist? ists 
4218 4220 4221 4222 4226 4241 424 
ee ed 
4345 4346 4347 4354 dase 4364 4365 
4386 4392 4393 4394 
SLPADR 001106 9738 11008 4e48e 4864# 4869 487 
SLPERR 001110 9748 1101# 1200 12e50% ic64*# 1c80%  1297% 
1438% 1455# 1490% 1506% See  1558# iazst 
1714* 172e8% 1744 17618 179e% 1806% 1 
e082 130%  2150% 170% 2218%  2238% 
2e450% 2495s ee 8646 * 629% 2663 
3049 3067% 3307% 3354* SHee# 496%  3537# 
SLSTCN= 177777 38 61 1 13 ise 1610 1214 issé 
1 1 1 1 1 1311 1 
1364 1368 1381 1383 1387 1411 1413 
1463 1465 1469 1495 1497 1501 
1548 1550 1SS4 1561 1563 1567 1577 


ee 


— = bb 
ow 


te 


ov 
he ee 
5 Rta ee 

cw 
et etd 

io 

yy 

io 

8 
os 


ge 


aha 
gene 
si 

a 


rs) 


5 


tT 
_ 
rm 
-_ 
e 


& 
oOo 


Been 


2 
: 


eae nr es 


ee Ris eae 
Dea eTORBSRRRRE Saas 
RRbaSeReLR ess 


eahan st ie 
Bandas 


5 


4x8 
wu 
ab 
a 
Be 


WU) 


pgeees 
eserves 
o— 
wo 


R 


SFVBZR 


SaeaResun 
BSRS 


Eee ASS 
= 
rs 
eee 
gets 


= 


staige 


S333 
Siaanes 
Biases 


Pt ret 
3 
£FLCLL& 
EQRRR 
£££ 
Pe me 

ENT Alar 
£SLCLE&&£ 
Yer 
TWOLD 
eee Ss 
Ro 
x2 SRS 


FRED 


To me mee ee ee 
a mm rr ee ee _ 


—_ 
— 
© 


SEG 0131 


1 
“" = SYMBOLS 


am 


27( 1006) jae 


O6-MAY-77 15: 


SX GR ERANERRRR ESOT RMMN RRO S 
SREP ERR CRAMER Mo eMan eee vee 
SR ERT NN CRRNEK RS SNAMMR RSS oe 


HPs 
ue 


mine 
crue 
rrr 


SR EDR SRE MRR RRR auRMRS BESS S 


SR ORS SRM URGRCeSSNMeRN RNS SENS 


Sas SL Rid eae cs 


ESS oars See i ei! 
ESSER SAU SS geist y 
SS NPN ae etre ee 
SR aoR ACK NRR RE eMnoR ess 


eS ere mi te foe 


SF aw] 
sts 
Ba 


eat ATS 


SERRER ROSS S Hamar mae 


Ser mers 


BORN ERS EN PRN AGE RNR OBO UAE 


Ee mand ed mt etd Ce en ee ieee oe or oe 


ENON SE Reda Renee aT Seas 


a te te 


ESAT Tite Ee Sah teeing at tei 


mpupotelbobetababeaagusesatedbeeedmseerkes ath 


a UU T FF RN BON RR OOO 


y BEES es atone casa 


cCucutyu 
ao BP ie as re eee 
oo ete so ate ol lh wh RA cucu 


ae eee 


BO} UU TF ODOR ODEO 


Sit la a 


See RARER MERCH ABEMN SARS Soe 


SuMbReSS oes = 
Sah ey auaKLeNReRAon aman GES oes 


RP 2 


eres 


St eet 


fe SEER ANOS RAS 


i PRIS ASD Sao habe cert ot 


See es 


Pt oh ol on 


“UCR ERPE TRAE SUSUR ET RS Be 


tt te 


SLSTIN= 000000 


————— TET ETT Tw 


SEQ 0132 


SSR Peet iche Ms Len ic sonore res ean UR SSMS LS Es tae 
RMNORRAK RRR ARMM RRR UR On SE SoMa ane ee ManaaaMne NARA ERE 
RS EER inst Maa Dg teL MEE Sic eeda mean vs Ia St 
RAMRA CCRC EN COREE GRRE a sam meee cMamneaNE 

RARER TERUG ERROR MERE ERR aSNMMONGE os MamnnaNE ee amReeS 
St Ee Rr ttn suS tec te Sepee tN Lureeme nits Naa 
Rit Stee MOSS tea C eR et Sai resis ares 
SRNR CeRMCUeC EARNER ER aaa Sonu ee emai aaRe 
SAM SRCR RUMOR ELAR EER ER CaR aT oes Me Re maMMaaNS 


— 
4 
© 


RENCE TABLE tiger SYMBOLS 


ci, SRESRIECURC RES CAMREARAR os AMAAERE aaaN EERE 

WSS eran rem uac is Wyse Seana rs SEs sare Ee RMGS TU 

BE eran Mn SG Tree eet aSes ae SINR MAGA STS 

Pere cetr ant ee cSt aus etces feat aces Mus reas 
* 


| NAINDEC-11-DVvDVA-A 


| DVDVAA.P11 


. 
| 
' 

eee te Cee ee — 


NAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 136 
DVDVAA.P11 O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 


3 4096 4097 4098 4099 4100 
4112 4113 4114 411 4117 atas 412 4124 aig 
4134 4135 4139 414 4141 414 414 4144 41 
4156-4157 1g 4 Wigs HI72 Ie 4173 
4195 ubiB 1 4200 it poe 4 4204 
2093 421 4ell 4el 421 4el 4216 4217 4218 
mm me 4242 aa aes : aSch Seo wSce 
i i i Se im me 

1x8 1390 a 4 4333 384 4 4 4 
| SLSTST= 177777 38 861198 1199 1 1210 1214 1222 1253 1255 
1286 1288 1292 1305 1307 1311 1329 1331 1338 
1364 1 138 1383 1 141 1413 1417 1427 
1450 ies ties 1469 a9 14 1501 1511 1513 
1548 1SS0 1S5S4 1561 1563 1567 1$77 1579 1783 
1615 1619 1639 1641 1645 1655 1657 1661 16 
1697 1717 1719 1723 1733 1738 1739 1750 17S2 
1795 1797 1 4 1812 1813 1817 1 1638 ie 
1881 1890 191 191 1 9 1 ; l 3 1 
ome Sie «Setar Stag Sins Bie? «Biss Bae 
sor ig Saie Se; Bassas Bau; Baea Bas 
sie aly BIB Suan Sass age Sag San Bate 
3 Gh 8 Bh 8h 88 By sy BB 
Seae | Seen) Bare Eare Bar? Sse | Sees | Soe 
rn a a eee ee 
3148 3141 168 3169 3171 172 3174 3158 3179 
Sica 3188318? 318e 3199 307 © 308 
3227 3331 3333 3338 3337 1 aai6 3343 3348 
3464 3466 3468 3470 34 76 34 3481 3483 
wat o's 3575 3577 wry soak 3586 3587 Sri 
ee ee ee ee 
3350 3406 Soy Sass ae Sd 3869 
4017 4019 aise met 4071 aie 4106 4108 
4118 4122 41 4128 4131 Yi, 4154 4156 
4202 4203 4204 4 4212 4213 4220 4227 4240 
4248 4250 4251 4 ess 4 isc ‘sae 4 
ise ise eS 4339 4340 4He 4345 4 434 
stp nee eee eS 
lees igea = tego sdeot «fens teao deus Lee Bl 
1698 1723 1724 1739 1740 1756 7 1775 1 
834 1835 1853 1854 1890 1891 1924 1925 1959 

7 2033 2034 2057 2058 2077 2078 2097 2 

2165 2166 2185 2186 2209 2210 2233 2234 2253 


ROR ei 


oe ee 
_ 
fe 


BREEN 


Rees 
BERS 


—* b= Pb bb b= 
o 
co 
Ga) 


et 
e538 


3 


Bans 


? 
a 


FRESE BESS 


bichiecta te 


Se SSRE 
BhasBs 


GREE ese 
pn 


ae Se. SS 


re ee ee et ee _---- 


ll 


MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 137 
DVDVAA.P11 O&-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
ocae iY e3ee 2 eH es42 86231 c20s sth ~ pan pak 
Se eS Ge fe GS oF SL 5h Bl Be Be 
: £505 13 5ei4 FEEH “ 3a37 Ee 
mm i we iy ee ee He i He fe ip 
ke 3199 3209 = 3el aed? sei8 si? sees Jee8 se 
ee oo om ca an oo oh Bl Be 
3748 38 3749s 3784 see 3700 3791 4 8 37 3575 374 3891 
3964 3%39 3970 4016 4017 4030 
41 4106 4114 41 4118 4119 41 4129 4147 41 4159 
4171 417e 1 41 4178 4 4 4204 4205 421 4214 
4222 4226 4227 4e4e 4e4 4e44 4245 4250 4251 4 4253 
4260 Yebl 4265 426 4287 4288s“ 1 “W3ee Sed SS 
4336 4346 4347 4354 4355 4365 4366 4375 4376 4392 4393 
_ SMADR1 001226 10368 
| SMADRE 001232 10408 
SMADRS 001236 10438 
SMADRY O01e4e 10468 
| SMAIL 001174 956 960 10098 1118 1133 1185 1246 1322 1399 1487 1S46 
1789 1870 1904 1938 1972 2023 elll 2199 2287 2377 2475 
Sach esde 2860 2980 3126 3288 3411 3619 3708 
SMAMS1 001224 10308 
SMAMS2 001230 10388 
SMAMS3 001234 10418 
SMAMSY 001240 10448 
SMBADR 001002 9568 
SMCALL= 000000 ls 3 
SMFLG 013726 4701% 44707 4742% 47468 
SMNEW = §=013453 4695 8 
SMSGAD 001210 10168 4717% 4720 
SMSGLG OOlele 10178 47228 
SMSGTY 001174 10108 4715 4723% 4735 4739% 
| SMSWR = O1344e 4580 46938 
SMTYP1 001225 10318 
| SMTYPe 001231 10398 
SMTYP3 001235 10428 
; SMTYPY 001241 104S8 
| SMXCNT 014410 4861 48718 
SNESTL= 177777 38 11988 12088 12148 12228 12538 12598 12698 12758 1 1 
13298 13518 1 epee 1a? ® 13878 14118 14178 = 14278 
14508 14638 14698 14958 15018 i1Sil8 15178 15278 $33 1iSs46s = 
15778 isGye 15948 biae 16198 16398 igs 16558 16618 16728 
16978 §=8617178 «17238 «617338 «617398 «617508 «1 17698 8 17958 18018 
18288 18478 18538 18798 18908 19138 19e48 19468 19598 
20068 § 8 78 98 ie 2 i] 7 114@ §6e2lels 
21578 1658 1778 1858 ® 22098 eceSe e2338 224s 8 2265 
® 23138 23218 23338 23418 23538 23618 23808 23878 edles ec418s 
Sot fi Get Bot Got Set ll But Gat Sut be 
27878 ] 338 a Os 8 50778 scare 


= ma eee eee oe ee oe. ee ee ee + + 


adn 


Ww 


Bie 


3 


BSS 


gee Lae, 


_ 


QSG-B— OR 


ea 


MAINDEC-1 
DVDVAA.P11 


1-DVDVA-A 


SNSKO = 000300 


0 
C= ##eeee U 


SROLIN 013312 
SROOCT= ##482% U 
0000 


SROSZ = 10 
SRTNAD Ol2eect 
$R2A 


eeeeee U 


MACY11 27(1006) 
O06-MAY-77 15:29 


i 


—_— — ee 


4675 


16-MAY-77 10:36 PAGE 138 
CROSS REFERENCE TABLE -- 


4691 


11 


l 
USER SYMBOLS 


fer 
Het 
43778 
1 
14118 
1 
16558 
1775 
1Hb8 


Sais 


4808 


Bano, 


TUM ee EOE 
#R Fo 
s<t-¢ 


8 
ate 


e 


ge 
= 


288 § 


48SS 


4872 


_——- — ee SO. SS 


Gll 


MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 139 
DVDVAR.P11 O6-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
SSAVLE= 177777 38 29368 29378 31478 31518 31898 31908 36418 36458 37398 37438 4146s 
42038 #42078 #4Y4e43e 42478 Y4eSle 42SSs 
SSAVRE= £e#ee% LU S0S8 
SSAVR& 012414 4449% 44457 44S8% 44S9% 44758 
SSCOPE 014132 1088 48228 
_ §SETUP= 000137 10798 1087 1088 1090 1092 1094 1096 1097 1098 1100 1127 1130 
| 3e83, 3833 3i8%. ae diese 3 
$SSKO = 000233 & 31478 3151 31898 31 36418 364S 37398 3743 41468 4147 
4207 42438 4247 42eSi#  42sSs 
SSTUP = 177777 10798 
SSVLAD 014340 4833 48628 
son ; 167400 “= bay 7 1 
s e 
1098 1880 8: ifs ae 38; 1388 14 A 168 1710 l 
1903 1937 1971 2110 2198 2286 2376 74 2577 S93 2742 
28s3 3125 3287 3410 3618 3707 4O4S 
4430 4432 4472 4761 4762 “4 4764 4773 4780 4752 4796 
| 4 qg28 4817 ig 8 4ge4 4836 4838 4 4842 4843 4844 
4 4 | 
SSWREG 001216 1G2i8 illel 
SSWRMK= OO00000 690 691 4818 4819 4840 
STAGLE= 177777 38 611998 l A0e 12148 1 | 125S8 io 1271981 1 ® 12888 # 13078 
13318 1 s 1 e 13518 13648 13688 l # 13878 14138 8614178 14298 14338 
14S0e 14658 14698 14978 150i8 15138 15178 15298 1533 15508 15548 15638 
15798 15838 15968 16008 16158 16198 16418 ie 16578 16618 16748 # 16788 
16978 17198 17238 17358 3398 ~=— ol & 1756@ 17718 #17758 17978 18018 18138 
18308 16498 18538 18818 18908 19158 192% 19488 19598 9788 1983 
20068 20338 1s 78 20718 20778 20918 7#@ ell68 e2l2le 21398 
21598 1658 21798 18S8 ssuie ssa 2278 338 78 22538 78 so738 
& 1S8 23218 8 18 Se 3618 8 8 e448 24188 328 
ews 8 PEH 8 608 PH 25138 178 25378 25418 8 25648 
i Bt Bet Bei Get ae Bt Get Gk at et 
: ] 148 168 BH 8 8 see secre | eo4es 8 29648 
8 tt 8 a g 8 arase 3 : ] 31308 1se 1468 
31518 31698 1718 1748 1798 1808 1668 1898 1988 1988 1998 
168 3218 ¥ * 3 23378 siie8 3 e 8 8 
34668 34708 34768 860934778 18 8 18 g 418 468 g ls 
35888 35928 Ne 408 428 4S8 Sls soe a 48 8 908 
36938 37128 178 # 8 38 Ss ls Se 78 a r) 
373948 38748 38758 apsse le 39228 39268 39548 39648 98 P] 
40178 40198 40258 ® 41068 41108 41148 411S5e@ 41188 41248 lese 4131 
41568 41598 4e0e8 Y4e04s # Yeles 42138 Y4e4es 42478 42508 42eS28 
ist 42578 442598 42608 43368 @ 434ee 443468 43478 $j.4“3S4e 43658 43668 
STAGNU= OO024E 38 61198 11998 1209 12108 1 125S* 1270 12718 1287 12888 1306 
1330 13318 1 13478 1 13648 1 13838 14le 14138 1428 14298 
14468 1464 146Se 1496 14978 3 15138 1528 1S298 1549 15S08 S62 
1578 it 1595 iat 1614 16158 1640 16418 1656 16578 167 16748 
16938 1718 17198 1734 17358 1 e § 17718 l 1 ® 18le 
1829 18308 1646 18498 1880 18818 1914 19158 1947 19488 19 l 
19938 2027 % 20518 le 20918 413 2ll6s el 
ghee sire § 7 site 2203 soe 226 2278 S508 2478 86eebb ecb78 
4 314 3158 34 23358 354 3558 2381 es 13 24148 2431 
2440 24418 24588 2479 24808 2Sl38 2536 25378 5 25608 
eS838 2619 2641 ebY4es 26878 2708 27098 2727 27288 


eee 


3 


PUP eb e e 
= 


Bee 


: 


ee a a ee eee ee 


MAINDEC-11-DVDVA-A MACY11 27(1006) yh mgd 10: PAGE 140 
DVDVAA.P11 O6-NAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
2788 27898 28e9e 2845 


mu ie 


i 
NOU) 
= 


z= 
a8 
coe 


1 1308 14S 1468 1 i) 
Tt CTC CI MES 
es Bl, Be Bh, Bo! Bi 
oa fa bal Bl Bee et 
4109 Sii0s 4113 411 ; 412 41248 are 
| 42078  4ee7e sa ade y 3, Ye4h Wi33, 
43268 4335 4336% 4338 43398 4341 tyese 
STEMP = 000300 114S8 11468 1i35e 11S38 11$S8 1 11578 
11678 11688 11708 11718 11738 11748 117S8 
11948 11958 11968 11978 12008 12018 12038 
le2es le23 12278 le2eba 12308 le3ls le3es 
13578 «12758 «12808 12818 e838 lepye lee 
13278 l13cc8 13408 ius lsHee 138 13518 
13748 13768 13778 1 § 14088 14098 141 
14398 14418 icase iiaos 1 F ] 1 : ] 1 8 
1S018 15068 l R l 8 1S108 15178 1 
15548 1SS88 15598 15678 1$7e8 18738 1574s 
ieooe ieoee ete ete cose e138 Gage 
18618 16668 1 8 1 8 1pcus l + sane 
17648 17658 17758 1 8 ae to 1 a 
18258 18268 18348 1 8 1 8 1 g 1 
19°48 19448 194Se 19598 19808 19818 19838 
e04es ore 8 78 3 tet Q 
cere Gosye lise lia 818 see fi 
soos ease ewe Some Soih Seiak 
coe Sent Sele Sit Saat Ee 
24838 r} cisee 968 Scere e500 $508 
eS4le eS468 25478 SO Sis 4 
e6068 #26078 5108 lls seed 
serge 26918 ane 2696 : 
crag Sr7n £708 cate 
28838 8 soe a r} 
23368 # & 8 y 
30118 8 3023 r} r} 1 
& 8 a 1 


pease 
ROGIBZES 
pepeps 
srr2en= 
See RAR 
pretewscee 
Sainw 
Sith: 


Ep aae ete 


3 
“=t 


rire 
eR 


=> 


oS Rese 
eS 


Be 
rs 
£ 
_ 
Re 


Lee 
oe 
— 
eS 
es 
Be ee 


eer se 


gees 
nue 
aes 
pee 


WwW 
be 
Cat 


3 
® 


UN 


queue an eunocpsaes 


POS 


sea 


R 


& 
Pee 


Bet 
RS 
card 


(= b= a be be bs be ee be be he ee Pee 


ae be tb be be per be ee be 


ata ANT 


b= GB B= RS bs be bs os pt bb bh ee pe 
SSlS*SS*eS*eS*S*s@Se@e**e*eeS*sS*e*Se*e@@Se*Sae@SSees*ee Ceecvcvcee@@ca 


Pea tach atom 


b= b= = = bb bb bP bb Pb 


= 


b= bo b= pa bh = b= Bb = be be he 


fs 


set 


seeeeReaees 


Ww 
—e 
=_ tie, 
—-UI@MOUTI— 
Ea 
Septadtad 
ee 
lav) 
WwW 


pens 


MAINDEC-11-DV0 
DVDVAA.P11 


VA-A 


06-NAY-77 


MACY11 27(1006) 
1S: 


38 


POR ee 
Ne 
TU br ee 


? 
ag 


PRBS RGR RARE 


ae 


8 
g 


48S 1# 
4561 


Spe R SSR Se 
S geaetsaes 


Sree 


yep sei 
Stet 


Boer 
NBR IS 


35978 
cate 


ese 


iss 
a 


Rome 


16-MAY-77 10:36 PAGE 
CROSS REFERENCE TABLE -- 


I11 


141 

USER SYMBOLS 

ae oe 

Regn ise 
7% 78 
8 # 
8 a 
4 % 
78 a 
3 4 
a i 
® 41318 

41988 4 
s 444s 

4YH38 6444s 


eta 


BERS 


ae ee wae oe 


serene 


eaeeBee 


Ww 
| 
oO 
N 
eS 


Baste sae 
ee 


seoas | Ses 
is | Se0e 
| | 
i 2 
at Bist 
is Sees 
alge 40118 
41008 41118 
41 41448 
dguge | S638 
43658 43678 
iyere Topas 
soos | Brads 
i 
j 1s % 
199% % 
23902# 
* 37148 
1317 13218 
1626 163e8 
19038 1904 
el 21108 
serge 377 
Soe? 
3237 78 
3708 3715 
soss Sosé8 
13078 1311 
1433 14468 
iene 7 
ie HB 
sie 


= 
8 


BE 


as 


TCE: 


= 
s“3 


1788% 


n 


mea 


wars 


ae 


ee 
wi 
a 
a 


$5 


a 
mantis 
wo 

cs ca cs 


38 


rm 
we 
nn 
3 


~ 
2 


& 
—_ 
oO 


&e 
“3 


8 


bay 


é 


- + +--+ ++ ee Se ee Se Ce 


MAINDEC-11-DVDVA-A 


DVDVAR.P11 O6-MAY-77 15:29 
314 
38 
Ware 
$TSK1 = 000245 12108 
3348 
39588 
| $TSKe = o00244 sane 
4, 8 
STSK3 = 33 38 
STSKY = rete 1748 
STSTM 001004 9578 
STSTNM 001102 9708 
STTYIN 013420 4668 
STYPBN= #22222 U 50S2 
STYPOS O144ie 46848 
STYPE Ol24%2e6 4496 8 
STYPEC 012640 4526 
STYPEX 012706 4551 
STYPOC 014662 49698 
STYPON 014676 4968 
STYPOS 014636 49648 
SUNIT 001206 10158 
SUNITM 001010 9598 
SUSWHR 001220 ieee 
SVECT1 001244 10478 
SVECTe O012% 10488 
SXTSTR O14144 48278 
SYESNO= 000001 11638 
12308 
1424s 
1$758 
17478 
20678 
r} 
r} 
27478 
31838 
8 
8 
8 
1s 
39118 
39748 
da708 
S$SARGC= 000000 1g 
SSBYTE= 000403 icoee 
17338 
20498 
23338 


MACY11 27(1006) 


ae 
3 sees 


es 


Jil 


16-MAY-77 10:36 PAGE 142 


27 33338 
41568 415 
28798 
3476 4 
41068 4131 
Ss 3 
2 
317 ; 4 
laos 318e 
4772 4808 
4686 46908 
5039 S047 
4540 4S4S¢ 
4568 
5050 
1976 2026 
11668 11678 
12678 12838 
14418 14428 
isons 16088 
17648 @ 
% He 
ry a 
r} 2 
8 28078 
1858 308 
@ ® 
ry g 
Bibs : 
ry 3 
gai 39188 
1s | 
42108 Yells 
43728 43738 
® 4eege 
tes75 [eues 
ios 139 
20898 1148 
23808 lee 
“767% 28448 


sie 


— 
i 
io 
wo 


naar pry Rear 


3 
N“N 
N“N 
cas 


see 
58 


42078 


oe om 9 
©. 
-_ 
-_ 
es ee 


1$ 


ee ee 


CROSS REFERENCE TABLE -- USER SYMBOLS 


2290 


a ee ne em ee ee ee + - 


rs 


s 


Fe paar 


it 34 
40178 1 40258 
wom Seve 4260 
33378 3342 
36458 wes 37438 
43398 4 43668 
3653 % atau 
41158 411 4124s 


12188 12208 12218 
Sees 13608 13768 
15108 15248 i368 
16868 16878 17308 
18438 eO468 20478 
a 38 eekes 
AS 28s ess 
108 ’ a 
i428 631478 8631488 
8 is 8 
3 968 998 
ae ce st 
8 sees a 
39498 78 ) 
41958 41988 42038 
42528 ls t 
14118 =14278 
8 


i 


——- - -—--<- - - mm re a a | ee ee eee ee eee 


MA - VDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 143 
Pil 06-MAY-77 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 
30S38 30818 309s 31288 31698 31728 31938 20 3e038 33318 #33358 
} e 35758 738 ® 37108 37838 #36808 8 939528 
: ? : sidee lees 41548 3333 ite 
$SOST = 00006 8 
= a ] l : ] 1 ; ] 1271 ] 8 1 g 1 
SSrcAc= 00000! feopt igi0, | give 1508 1255) sega zeae 1271, e758 ieee 12pm, 
13878 14118 1413 14178 14278 14e9 14338 14448 1 1 8 14638 
149S8 1} 185018 1ai48 1 18178 1 } 1S29 1] 8 1S468 1550 
1563 15678 15778 1 1 e 15948 15 16008 16138 #161 16198 
16458 1 1657 1 | 1] 8 re 167ge iggie 1933 sect 17178 
SC cS eM Ee 
g 
iSeie isis 1s. Looe 1 : ] ] . 1 : 19918 L738 ine ’ 8 
mo se, pes fee Gl, gis fl. get Be 
e2338 e2c45s »f . 8 if oH BR . rise iz 
age Gap gaily cous cae cule cube fe Soaye Bie BY 
Se a ae 
t g & g g 
ne ee 
oo a ie a a sr 
31938 1 8 a 
Ye 8 1s 8 198 1 
eu) 35468 Sores 3877 387398 63581 oe ae 36838 . ae 
fe ce oe ie i, oe Se Se ie 
4124 41288 4154s 4] 41598 8 
= 4 26138 26358 26768 27198 # 28198 
a ye oases ee oo 34578 35138 35688 36328 #37298 #37598 38l4e 
«HBoe"> neta i2oss 1210 12a 12e4yasve 1255 12708 1271, 2878 1988108 
ee ie, ie ie, feet te ieee ite, dee te 
8 
17188 1719 17H48 3 iets 17S2 ie7pe iced 17968 1797 tet 
16488 fal 1 F soon 19148 191 . 19478 elise hy a I 
189 see 5o38 8 so soe} 5039 sot 8 7 
S @ : + uy 318 
give al, Gagle Gam) paste Bs) mle oe Pa 
26198 2620 cb41# coe 26868 3 27088 tai 27278 sce? 27708 
Aen 555° ses. 2323 odes seg 5oc3. 23960 301S5e 3016 r 
Ss 8 30978 3098 8 130 31708 3171 1738 #831 
ae ee ee 
ale pene att 371 8 3 scbee 3769 @ 3785 38768 
wesc cle Sees" Sabie Joes Sere Hee Hern re Mee el” 
yp de digs Wiig" Wiese ie" see ish’ eee ae’ le 
TU= 000000 40718 41578 41618 17 ure 4221 42278 isPe 4 4322 43268 
SSRTNi= 000237 40718 4157 4170 41788 42278 4265 4eB8se Y 43268 
SSR = 000240 40718 4162 4172 41788 422] 42278 4288s 432 43ebs 4393 


— 
28 
i= 

oe 


ats 
_ 


m~ 
—_ 


Series 


os 
—oOul 


d See 


Sais 2 


a a ee ee 


Se 


m 


ee ee eee 


Lil 


16-MAY-77 10:36 PAGE 144 


SEQ 0141 


CROSS REFERENCE TABLE -- USER SYMBOLS 


MACY11 27(1006) 


O6-MAY-77 15:29 


_ MAINDEC-11-DVDVA-A 


DVDVAA.P11 


138 


ess&é 26138 
3815 


3762 38148 


eS0S) = 25308 §=6©2S33 6=—s_( eS538 
Se8e S471" Sansa Soi Sue? Sued 
3731 37598 


3730 


37298 


e406 25028 


32088 


BEAR See rh emu ea Rar ght ae Pe cea So 
idee utah ee SERRE cca aS 


asso epb ab eunasaael 


285o88S4685~22NE2485 
hh hh tt od td hd ht tt 
APAARAAAAARAAAAAMAAMMAMMAM 


OES as sade aa alec sco 


UNUM BaNBaeehs Froese eS 


Se Kean Reaun Reams, ame Reem. ame Ieaun eae, Reems Rae. Ronen. Keen Koen eons Kom Kaen Kore Kame Kam, ew hem heme hem nem ham hem ham bape 
ADA RA AA RA APD AMAA AAA MAAN AMA AMM MIA 


SEG 0142 


MACY11 27(1006) 16-MAY-77 10:36 PAGE 14S 
CROSS REFERENCE TABLE -- USER SYMBOLS 


O6-MAY-77 15:29 


MAINDEC-11-DVDVA-A 


DVDVAR.P11 


i 


ZRETOC HES SE NSCAS OE OS POR SIDE TA Poa RECTOR TIES 


Messi eeee? 
OOOOOOOO000000000 QOOOOWOOOOO0OOOOMH0O0O00000000000 


Sti TSE RENE, SOA as SSNS 


SE@ 0143 


N11 


16-MAY-77 10:36 PAGE 146 
CROSS REFERENCE TABLE -- USER SYMBOLS 


ee Ce Ci ee Oe ee ee 


MACY11 27(1006) 


A+ ee a ee 


O6-MAY-77 15:29 


| DVDVAA. PLL 


_ MAINDEC-11-DVDVA-A 


Ad, gRAESEOLSESAEACSCScdansaaannaCecoaeceaaREseaaasS 
e 


ead tet de cucucucu=« 


GUMS EU RECAPS TRAC URA RRR UBT ER AER PRN RP RRR 


pee a re en ae 


: 
© Hessbahateddnsonoagaasn.? 


S205 225 RAMARM aRA IRM SSS 


SEG 0144 


Ble 


77 tea igo CASS REFERENCE TABLE <- USER SYMBOLS 


06-MAY- 


MAINDEC-11-DVDVA-A 
DVOVAR.P11 


oe ee eee 


BSE Sse i nae See 
SSUES RUS RN ee 
Reuse Saat 
sea sida faa ae 
ig i etfs oie ess 
EERE) 
SSA CSS p LST as 
ERS Ree E 
Sc sip ae ee a ee SS 
BSL e acy See Te 
ERE age NDUG SS RIERA aes eeE 
etc ES Sas Sa 


dare 


ia 


SELES 


en ee ee ee + 


a eee ee a a a ee - -- +e 


001000 


-SASTA= £42242 U 


. SX 


Sn  — 


yr aet 27( 1006) 


MAINDEC-11-DVDVA-A 
DVDVAA.P11 O&-MAY-77 15:29 
BEGIN o 
_ BGNHRD 8 
 BGNHI 38 
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BGNSF T 38 
BGNSRV 3¢ 3905 3938 
BGNSUB 3¢ 1199 1249 
1 1S21 1332 
1 1821 l 
2257 2305 2325 
2779 2807 2982 
BGNSHW 38 
BRESET 38 1175 1302 
3857 4030 
CALL l@ 1147 2403 
3368 3444 
CASE ls 
CKLOOP 38 1854 1892 
CLRVEC 38 1224 3384 
COMMEN le 8028 
DECR ls 
DECRU le 
DEF AUL ls 
DEVREG se 
Dr epar 38 
ELSE le 2881 3177 
END le 
ENDCLN 38 
ENDCOM ls 8028 
ENDDEC ls 
ENDOO le 2935 3188 
ENDHRD 38 
ENDHW 38 
ENDIF le 1213 1258 
1516 1S32 1553 
1800 1816 1833 
2164 2184 2208 
e484 2516 2540 
2904 2931 2933 
3349 3378 3480 
3962 4028 4117 
_ ENDINC is 3225 3691 
| ENDINI 38 
' ENDLOO le 4145 
| ENDMOD 38 
| ENOMSG 38 
ENORTN ls 4169 4219 
ENDSEL le 
| ENOSFT 38 
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e4e7 = 2450 os ey8e = 2495 ce oy’ eS2e e750 es4e eS49 2585 2599 ag! 2606 
me ml el BS Be Se Se ee es 
mm 2 Bw wm ee ee et oe ee 
3307 3319 3354 3396 3359 3387 33388 3390 3391 S15 816 Hi? Hig Hi9 
See} 8=6o34e3)0 eb 3HS3HBS Se 49E 3497 55001 3804 8253 3537 3543 3548 
SE ne ee ee 
3854 3860 309 3013 16 3923 343 339 8 3961 
3972 3979 4010 4013 4 os 4110 4115 4125 4143 4191 4193 4207 
ae 4214 4237 4280 4342 4351 4355 43S 4359 4361 4366 4370 37e 4380 
LOCAL a8 
LOOP le 4104 
MSG 11778 §=©1179 12398 = 1241 14768 = 8=61478 1s408 1542 16268 1628 17048 706 17828 1784 20178 
9 2e10S# 2107 21938 2195 22818 2283 23698 2371 e469" 2471 26538 2655 27368 
t : =. 31188 3120 32788 3280 34038 3405 36138 3615 38048 39988 
NEWTST 8028 1177 1239 1317 1394 1476 1540 1626 1704 1782 1865 1899 1933 1967 
2017 2e10$ = 2193 2281 2369 2469 2S73 2653 2736 2797S eBS3 2975 3118 78 
3613 3703 3804 3998 4041 
OCA ls 
POINTE 38 
PRINTB 3 . 8028 1232 3392 3609 4261 4461 4462 4743 4744 4925 
1s 1225 3602 4234 444O 4448 4704 4706 4727 4884 
REPEAT : : 1197 28 3649 3660 3747 3763 3872 4015 4334 
RE TURN le 4156 4160 4216 4384 
oer 3 4069 4176 4225 4286 4324 
SCOPE 6978 1183 1244 1320 1397 1485 1544 1631 1709 1787 1868 1902 1936 1970 2021 
2109 2197 228s 2375 2473 eS76 2658 2741 2800 e8s8 2978 3124 3286 3409 3617 
SELECT ashes 3808 4003 4044 4407 
TPRI 1s gdes 1401 2390 2488 231 3313 3262 3433 3507 3555 3626 3723 3828 
SETTRA SO0398 S048 5049 S0S0 5051 50S3 S0SS S0S6 5057 
T iT 80e8 1079 
SETVEC 38 §=61189 3414 
SKIP .? 8028 1552 1981 2031 2119 2207 2 2483 2567 2586 2303 2930 2967 
3023 3043 3061 3091 3106 3132 3237 3544 3715 3895 4033 
tay eos 8028 
STARS ls 8028 818 820 8 840 88 860 880 882 1 916 941 
950 1004 1007 1177 1182 1236 1 1239 1243 1316 1317 1319 1393 
1396 1475 1476 1484 1539 1540 1S43 1625 1626 1630 1703 1704 17 1781 i?’ 
1786 1861 1864 1865 1867 1898 1899 190 1932 1933 1935 1966 1967 1969 20le 
e016 2017 2020 2104 2105 2108 e219 2193 2196 #2280 2281 2 e 2369 =. ek374 
2468 e469 e47e es7e 2573 2575 Se 2653 2657 2735 2736 2740 27% e797, 
e8Se 48688530 C857 97H 975977 3117s 3418 = 3123 77 = «3278 es 3 3403 
3612 3613 3616 3702 3703 37 3804 3807 3997 3998 4002 4 4043 
4089 4175 4189 4224 4233 4270 4277 4288 4326 4333 4399 4438 44S4 4481 4560 
4631 4660 4699 4756 4810 4874 4941 5018 
STRUCT ls 38 
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TRNTRP 5SO0398 

TYPBIN ls 8028 

TYPDEC 18 8028 4062 4300 4419 

TYPNANM i8 80es 1123 

TYPNUM y 8028 

TYPOCS #  80e8 

TYPOCT ls 80e8 4OSO 40S 4293 4306 4312 318 4581 

TYPTXT le 80e8  4O46 4289 = 4295 4 4308 4314 

UNTIL ls = leel e888 38-365 3663 3750 3766 3874 4018 4376 

Hg 

WAI TUS : 78" co 2501 229 esses «ab le 2634 2992 3002 3074 3323 3367 3456 3S1e2 3867 

WHILE ls e29le 3167 

WHILEB 18 

SADDON le 1198 1199 1208 1210 1253 1255 1269 1271 1 1288 1305 1307 1329 1331 

1345 1347 1362 1364 1381 1383 1411 1413 1427 1429 L444 1446 1463 1465 1495 
1497 1511 1513 127 1529 1S48 1550 1561 1563 1S 1579 1594 1596 1613 1615 
1639 1641 1655 1657 1672 1674 1691 16 1717 1719 1733 1738 1750 1752 1769 
1771 1795 1797 1811 1813 1828 1830 184 3 1 1881 1913 1915 1946 1948 
1976 1978 1991 1993 202 e20e8 2049 2051 3 1 e0sg9 «e091 = ell4 = ell& 2137 
si ge de se oh oe ee oe ee es me me me RP OR 
e4s8 8 86e47B e480 S11 e513 sexe S57 2581 scB5 e618 e6e0 ec640 eb4e 
2686 e687 82707) 8606287090 eve? e72B 770s 2771 e787) 2789s BRB BSG BH BGs’ 
e876 862877 = 2879S BBY e8S4 esss e897 e130 e914 = 2916 e918 e920 8 egel e923 2936 
esl 2eH3 8 2958 3014 3016 3032 3034 3055 3081 3083 3096 2098 = 3128 
3130 «63144 = 3146s 3147s 3181 3168 3169 3171 3172 863174 )=—s3180ss3189s3199318H—(iés«sC3:18 
3201 3205 3209 3331 3333 3335 3337 =. 3343 3373 893375 = 3464 S466 863468 3470 3477 
3519 3$e21 3539 3541 3875 3577 3879 3581 3640 1 3645 3650 3651 
3661 3662 3683 3685 3710 3712 8=— 3736 3738 3739-3743 3748 = 3749 3764 3765 3783 
3785 3873 893874 3880 3882 3920 2 3954 3958 3976 «6063978 «= 4016 4017 
4023 4025 4071 4105 4106 4108 4110 411 41lee 4124 4146 4154 4156 4178 4200 

| 4202 4203 4207 4207 4240 4e4e 4243 4247 4 4251 4288 4326 4335 

| —. Hf 4339 4340 434e 4347 4366 

SBRANC ls 1209 1223 1254 1270 1287 1306 1330 6 1363 1382 1412 1428 1445 1464 
1496 1$l2 1528 1549 1562 1578 1595 1614 1640 1656 1673 1718 1734 1751 
1770 1796 18le 1829 1848 1880 1914 1947 977 1992 2027 2070 2090s 2115 
2138 2158 e178 2203 e226 2246 erve 2291 2314 2334 2354 2381 e413 2431 2440 
e4S7 8684790 eS le eS 36 esS9s eSB2 sts IL e641 e708 38 e727 e770) e788 ss eB 
e878 4=— e882 —iB90—siSe BHC‘ 201s SRE 98H HE ss 9S 3015S 3033) 3054 =: 308 
3097 31eP9 3314S = 3150 3170 3173 3l 3189 3194 3197 3202 3204 3207 3226 3332 
3336 863341 3374 = 46S 3469 3475 3840 3576 3580 3639 3644S 3654 3665 
3684 3692 3711 3737 a 3752 3768 3784 sf 3881 3921 3953 3957 93977 
4020 4024 4109 4113 412 4132 4134 4146 4155 415 4162 4201 4206 42le 4217 
4241 4246 4e49 = 4#eS4 4256 4259 4 441 4345 4364 4378 4 

SBRCOD ls 2889 31499 3643 3741 prey 41 je 4533 

SCALL ie 1148 e403 eS0e eS30 2 261 2 e676 8= a7 1 e760 2819s 2993 3003 3075 
33204 = 3368 So HHS S70 3813 3868S 32s 37293759 B14 4139 4B 

SCHECK 1s 1208 1253 1269 s_«1286 1305 1 1345 1362 1381 1411 1427 1444 1463 1495 
1511 1$27 1548 1561 1577 1594 1613 1639 1655 1672 1691 1717 1733 1750 1769 
1795 1811 4868 847 1879 4333 194 178 1991 2e0e 4 2049 82069 50s) ellY = 2137 
ely @i7vy—g con0 Ol eSt—i«éDDD ee 231 e333 e353 ee e412 30 «2439 = e4SE 
e478 = eS 11 es S8 e581 2618 e640 862707 2787 2844 2877 = 2895 2914 e318 = 2921 
eH e958 3014 3032 3053 3081 3096 3128 3169 3172 3193 3201 3331 3338 3373 
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73 i333 3947 3967 3973 3980 4008 4011 4144 4194 4208 4210 4281 
4 


S 


oa 


SPUT 2404 «PS03.—Sé«RS31~=«iSSHSCiC«RSLH Ss BHSCiH77?—«72D—Sés«7S«SCiéi«éikwBDSCi299H «= «3004 ~Ss«3078 

oneal 3458314 S569 Ss 3760S 4140 
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fe i ue ae sie ee ee 
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%52 393 s3717,-s—s 3 3743 «3751—Ss«76?Ss«790'«—«i3793:s—«‘C7M C3875 3BG1 S395 
3983 4019 4029 4114 4118 4128 4146 4147 4159 4170 4204 4207 4212 4213 
wey eH? eS 4 u2e7 «bSsi‘d2ESC«2SSCB@LCGCOCS (ESC 

STHEN ls . 1208 1253 1269 1305 1329 145 1362 138 1411 14 1444 1463 
S11" 1Se7 15NB 15611577 TBH 1bI31b38 Ibs Ube Aba] 712733780 
3157 igep AB ee os ede 
ou78 i! 2558 1 8618 BEND 707 8787 3977 5918 2921 

14 1 5096 S128 3172 4193 3 9331 3336 3373 4 

3519 7 64395793683 s«3710-S «43783 3920 3956 «3976 «= «4023—Ss«*08 
41S4 4337 4340 

STILA is 

STILO is 

SUNTL2 is 2889 

SUNTLS is 

SWHILE le 2913 3168 

SSCMRE 618 

SSCHTH 6-96.18 

SSDEFA is 

SSENDS is 

SSERRO is 

SSESCA is 028 
ls 1198 1214 1289 1275 1292 1311 1335 13S1 1368 1387 1417 1433 14S0 
101 iSi7«1833.—*sé«dSEMY~Ss«éd'SB? = s1SB3=Ss«dtB0,—s«‘i SCS «=i Sséd7Be=C«dKSS?=~—=<“‘«‘«dN'7@Q”~=«éL'72389; 
17s 18011817 16H 1890 194 1859 2006 2057 
eis ise clés 2208 ge} 2853 coy} cea? Bel EM] eel 87 BIG BAS 
mS Gy ml Be BR Be Re BY 2) ce 
es ae 3120 3128 EG EIRaRAS SEL i 
393 3717 43738 «403740 «Ss 3748)=S «3764S s«37900S «3794 )~=Ss3873—Sts«38SL 6 3964 3969 
4029 4070 4105 4114 4118 4128 4147 4159 417 4172 4177 4 4204 4213 

H 4221 Yer 4242 a y uses 4257 4260 4eb Yebb 4287 4321 4322 Ay 

4346 4354 4365 a ty 439 

-“$ScETS le 1214 1222 1259 | 1292 «1311.Ss«d139SSs«d3S1—s«:388 1417, «1433—Ss«a1SO 
1501 «1517.—«s«133.—=«dSS4~=Ss«éd'SB?)~=Ss«ddS@3~=S«s«dtBOOSs«éd1)—«‘iS~=SséddL)«Ssd7B=Ss«d97~=—s«d7e3—Ss«1739 
1776 1801 1817 1834 as3 1890 1999 1959 1983 2006 2033 20 2097 


4 


MuUnNT— 
a 


Tu 
— 


Beans 


é 
io” 


bss 


wre SE 
a 
Re 


TJ 
— 


rt ee a eee ee eee ~ we - ew - + - 


Lle 


MAINDEC-11-DVDVA-A MACY11 27(1006) 16-MAY-77 10:36 PAGE 158 
DVDVAA.P11 O6-NAY-77 15:29 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0154 


Se oe eee 
i ws 1 uk 


23g 
Rae 
x 
<2 
too 


we 
1s 
vi 
ye 
: 


Sees 


es ade 


32! sere 3717 3743-3751 3767 
1 4 411 4114 4118 aise 4131 

a ee ee oa ss ye 

_ SSGETT H at 378 3h 320) ead 34 326 411 4131 4 4364 
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Sa a on a ee a 

2905 AC. 2964 3045 3103 

31384 3148 3151 3179 3186 3189 gl 218 16 3218 3226 3e27 3342 3348 
ee ee ee eee eS 
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- ABS. O1S144 ooo 


BEFAULT GLOGALS GENERATED: 0 


DVDVAA/CRF /NL : TOC/SOL=DVDVAA. SML , SPMAC. SML , DVDVAA. P11 
RUN-TIME: 91 97 & SEC 

RUN-TIME RATIO: 4641/19S=23.7 

CORE USED: 43K (85 PAGES) 
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